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SECTION 1 - GENERAL 


The Multipurpose Interactive NASA Information System (MINIS) is a multipurpose 
data management system for small to medium size computers. The system is 
designed to accommodate fixed length record data bases with up to 200 fields 
(an arbitrary limit) and as many records as available mass storage will permit. 
The system has been operated on a data base with over 185 fields and on another 
database with over 160,000 records. 

The MINI System is an interactive modular system. Each major function is 
invoked by user requests in the system language, DABAL. The DAta Base 
Access Language, DABAL, provides the capabilities to form sets, perform 
mathematical calculations, define new variables from combinations of data base 
fields and other variables, sum a field or variable within a set, and to invoke 
any of the modules of the MINIS. 

The modular structure of MINIS is an efficient means of providing the existing 
features and functions of the system, and it also establishes a base to which 
additional features may readily be attached. The features currently included 
in the MINI System include: 

• User defined data structure 

• User constructed output report's 

• Inverted index files 

• Data base update capability 

• Simple equation oriented query language 

• Mathematical manipulation of fields and variables 

• Saved inquiry capability 

• Saved report format capability 

• Data code conversions and scaling 
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SECTION 2 - SYSTEM OPERATION 


The MINI System performs data base searches and set formation through user 
commands entered via the DAta Base Access Language, DABAL. Adjunct functions, 
such as data base definition and updating, are performed through the operation of 
separate modules containing the required dialog for user control. This section 
describes the operation of each module and the use of DABAL. 

2. 1 DATA BASE STRUCTURE 

For each data base established on the MINI System, there are several files • 
which must be defined and several optional files which can facilitate data base 
searches. The required structure of these files is defined in this section to pro- 
vide supporting information to the operation instructions in the following sections. 

The block diagram below shows the files required for each defined data base. The 
"file definitions" file contains summary information for all the other files in the 
data base. The "main data" file contains all of the actual data and is what the user 
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would consider to be the data base. The "field definition" file contains the defini- 
tions of each field in a record. The "user message" file contains all of the field 
titles, saved text, formats, headers, and name lists previously defined by the user* 
The "user dictionary" file is an optional file and is present if the user has saved 
any text, headers, formats, etc. The index files are also optional and are present 
if the user has created them. 

2. 1. 1 File Definitions File 

The file definitions file is simply a list of the other files of the data base. The 
name, record size, and number of records are catalogued for each file in a 
specific sequence. This file is brought into a special area of core when the data 
base name is specified. When changes are made to the file definitions, the file 
definition file is rewritten with the changes incorporated. 

The reserved core area for this file is a common area named FILDEF. The com- 
mon descriptions in Section 3 contain a map of FILDEF, which also serves as a 
map of the disk file. 

2.1.2 Main Data File 

The main data file contains all of the records of the user data base. Each record 
is of fixed length and contains all information known to the data base about the 
particular element or item it represents. For addressing convenience, each 
record must be an integral number of computer words long. (Word = 16 bits on 
a NOVA. Word = 24 bits on a Datacraft. ) 

Each record is divided into fields or parameters of the represented element. 

How a parameter is coded and stored in a record is defined by its corresponding 
field definition. Each field is represented with the minimum required number of 
bits, with fields packed together to avoid leaving "unused" bits between fields. 

The following example provides a map for a small data base: 


5 fields 3 - 8 bit, 1-2 bit, 1-10 bit 
100 records 



Bit #-*• 

Rec #1 2 
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Bits 36 through 47 of each record are unused to have each record end on a word 
boundary (a multiple of 16). 

2.1.3 Field Definition File 

The field definition file Is read into an assigned core area at data base load time 
and is written when changes are made to the field definitions. The field defini- 
tions constitute a bit map for a data base record. The field definition file is the 
same as the common FIELDS. The FIELDS common description in Section 3 
provides a complete explanation of the field definitions. 

2.1.4 User Messages 

The user message file contains all field titles, saved text, headers, formats, 
and name lists. The user message file is broken into two major segments. An 
index to the messages, and the messages. The index resides in the first three 
hundred locations of the file, and consists of byte pointers to the start of each 
message. Example: Location 1 would probably contain. 601 on the NOVA or 
901 on the Datacraft. (Word 301 of the file would start at byte 601 on the NOVA.) 
The messages start at word 301 (byte 601 on NOVA, byte 901 on Datacraft) of 
the message file. Each message consists of: 

Word 1 — Message number 

Word 2 Number of bytes in message 

Word 3 — Message text 

The messages may be in any sequence within the file as additions and deletions 
use and provide space in a random fashion. 

Message numbers are reserved for special use in blocks. Numbers 1 to 200 are 
for field titles. Numbers 201 to 299 are reserved for name lists, headers, for- 
mats, and saved text. Number 300 contains the length of the message file. 

2. 1. 5 User Dictionary 

The user dictionary is simply a list of titles associated with saved text, name 
lists, etc. , along with the title type and message number. The user dictionary 
is used as an extension of the system reserved word list for the current data base 

2.1.6 Index Files 

Index files are designed to speed up the process of set formation by providing a 
cross-reference between the value of a certain field and the corresponding 
record numbers. In order to use the index files, two levels of indexing for a 
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field should exist. The first level file lists the data base record numbers in 
order of increasing field value. The second level file provides pointers to the 
first level file of a range of values. Higher level files provide pointers to the 
previous level file of a larger range of values. 

The first level index file is composed of one entry or record corresponding to 
each data base record. Each entry contains a record number and the field value 
on that record packed into the minimum number of words necessary to hold the 
largest pointer and its corresponding field value. The field value is stored in 
the entry in the same form that it is stored on the data base. The entries are 
arranged on the file in ascending order of the field values. 

Higher level index files are composed of one word entries containing record 
pointers to the previous level index file. Each entry represents the minimum 
value of an equal range of values. The range of each entry is calculated by 
dividing the total field range value by the number of segments requested by the 
user. The first entry represents the minimum value of that field, therefore 
requiring one more entry than the requested number of segments. The record 
number in each entry indicates the record preceding the record of which the 
corresponding segment value is equal to or greater than the segment value of 
that entry. 

For each index file, a file definition is stored in the common area FILDEF. 

The index file definitions start at location 31 and end at location 230. This 
allows a maximum of 19 index file definitions of 10 words each. When an 
index file is generated, its file definition is stored in the first unused location 
beyond the index file of the previous level for that field. When an index file is 
deleted, its file definition is blanked out and the location is then considered unused. 
Each index file definition is 10 words long and contains the following information: 
index file name, number of records in the file, number of bytes per record, 
field number (level 1) or segment size (level 2), and number of bits needed for 
the record pointer. The file definition is constructed and stored in the common 
area FILDEF by subroutine WBTDEF. 

The index file name is composed of six characters. The first character is a 
meshed character created from the characters in the data base name. The next 
three characters are the field number and tlie last two are the level number and 
the index file type number. All level 1 index files are type 1. Higher level 
index files are type 2. 



Index Files for Field COUNTY: 
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Use of Index Files; 


The above table is an example of a system of index files for the field county. In 
the level 1 file, the actual entry is composed of the record pointer and field value. 

In the level 2 and level 3 files, the entry is the record pointer. The level 3 record 
pointers refer to the level 2 record numbers. The level 2 record pointers refer 
to the level 1 record numbers. The level 1 record pointers refer to data base 
record numbers. 

To use this system of index files for the following set definition: SET = COUNTY 
. EQ. 165, the number of index levels for COUNTY is first extracted from the 
field definition of COUNTY. Starting with the highest level file, the minimum 
field value and segment size are obtained from the file definition, and the record 
number of the appropriate segment is calculated, which for this example is 9. 

The ninth record is read from the file and the record pointer in that entry is 16. 
Using the segment size of the level 2 file, the sixteenth segment value is calcu- 
lated and found to be less than the value calculated on level 3. The record pointer 
is incremented and the segment value calculated until the best value is found (18 
for this example). The eighteenth record is read and its record pointer is 196. 
Starting at record 196 of the level 1 file and continuing until the entry value is 
greater than 165, a record is read and its value checked against 165. If the value 
is equal to 165, the record pointer is written in the candidate file and the set 
membership count incremented. The number of records found to have a value equal 
to 165 is returned to the user as the number of records in the set. 

In most cases, only 2 index levels are needed. As you can see in this case, if only 
2 levels had existed, the first calculation would have indicated record 18 of the 
level 2 file and several file accesses would have been eliminated. 

The number of segments also affects the efficiency of the use of index files. A 
level 2 file for COUNTY of 10 segments would be as follows: 
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In this case the calculated segment number would be 9. The record pointer in 
record 9 is to record 162 on the level 1 file. This will cause more records to 
be read on the level 1 file in order to find the set members. In this case, a 
level 2 file of 20 segments is more efficient. 
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2. 2 DATA BASE SELECT OR CREATE (DBLOAD) 


After establishing the computer connection and executing the MINI System (see 
log-on procedure for user's computer), the user must select the data base to be 
accessed. Upon execution, the system will request: 


ENTER DATA BASE NAME (6 CHAR) 


to which the user may enter an existing data base name, a new data base name to 
start up a new data file, or an existing data base name followed by a question mark 
to modify parameters of an existing data base. 

If an existing data base name is specified, parameters associated with that base 
are restored and the system is ready for inquiries on that data base. 

If the data base name is followed by a question mark, the number of bytes per data 
base record is displayed and the user is requested to enter any changes. Then the 
number of records in the data base is output and the user is permitted to change 
that number. 

If a new data base name is entered, the system informs the user there is no such 
data base and that a new data base may be created. The name of the new data 
file is requested and accepted and the system is readied for normal operation. 

At this point in establishing a new data base, the user must enter the field defini- 
tion module (See FIELDFIN) to define the data structure for each record. 


Examples: 

Dialogue Comments 

1. Load an existing data base. 

C: ENTER DATA BASE NAME (6 CHAR) 

U: LANS AT? 

C: > 

2. Change record count of existing data base. 


(C: for computer response 
U: for user input) 

Name of an existing data base 

Prompt for user inquiries 


C: ENTER DATA BASE NAME (6 CHAR) 

U: LANSAT? Change existing data base 

C: NO. OF BYTES PER DATA BASE (for example) 

RECORD = 36 

ENTER THE NUMBER OF BYTES IN 
THE DATA BASE RECORD (BLANK 
IF NO CHANGE): 
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Dialogue 


Comments 


U: 30 (for example) 

C: NO. OF DATA BASE RECORDS = 30 

117314 

3. Establish a new data base. 


C: 

ENTER DATA BASE NAME (6 CHAR) 
ENTER NO. OF RECORDS ON DATA 
BASE FILE (BLANK IF NO CHANGE): 


U: 

118419 

(for example) 

C: 


(ready for input) 


2. 3 DATA BASE ACCESS LANGUAGE 

The DAta Base Access Language (DABAL) provides data base access and calculated 
quantity capabilities through a sequence of user input statements and equations. 
DABAL instructions are executed in an immediate mode providing the user with 
an immediate response to his inquiries. 

2.3.1 Instruction Format 

DABAL instructions are free of any rigid structure. They may appear in columns 
1 through 72 on a line with the characters past column 72 being ignored. Leading, 
imbedded and trailing blanks may appear in an instruction to improve readability. 

DABAL' s scanner ignores leading blanks and stores the instruction beginning with 
the first non-blank character. A continuation character (:) may appear at the end 
of any line so that the instruction may be continued on the next line. A total of 
432 characters may appear in a single instruction. Only the characters from the 
first non-blank to the last character (blank or non-blank) before the continuation 
character on each line are counted in this total. Any characters past number 432 
are ignored. 

Character Set: The set of characters accepted by DABAL consists of alphabetic 
(A to Z), numeric ft) to 9), and special characters (=+-*/(). , :'% and Blank). 

Constants: All constants utilized in DABAL can be classified as integer, real, 
literal or logical. 

Integer constants may appear as a string of digits which may be preceded by a + or - 
sign. The range of integer values is determined by the machine on which the 
MINI System is implemented. On the Datacraft G024, integers may range 
from (-2^) to (2^ a -l). On the NOVA computer, integers range from (-2 5 ) to 
( 2 15 - 1 ). 
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Real constants appear as strings of digits with a decimal point and/or an exponent. 
Again, the range of real values is determined by the computer that is used. The 
following forms may be used to represent real constants: 

± 123.4567 ± 12345. ± .1234 ± 12.34E ±15 l.E ± 7 

± . 123E ±45 ± 123E ± 45 

where plus or minus signs are optional. 


Literal constants appear in the form 


's’ 

where s is a string of 0 to 11 characters out of the DABAL character set with the 
exception of ' and :. If there are less than 11 characters the string is left justified 
and blank filled. A null string C’) results in 11 blanks. All characters past the 
11th are ignored, and the trailing ' is required. 


Examples: 

String 

'A' 

’JUST ENOUGH’ 
’TOO MANY HERE’ 
'NO TRAILER 


Resulting Form 
Atftf 

JUS T)^ E NO UGH 

TOOtfMANYtfHE 

error 


'ILLEGAL ' TIC' error 

'CONTINUE:' error; the : is always taken as a 

continuation character, and the 
trailing ' is ignored. 

Logical constants may appear in only two forms: 

.TRUE, and .FALSE. 

The internal values for these constants are -1 and 0 respectively. 

Identifiers: Identifiers are alphanumeric strings that name variables, fields, sets 
and subroutines. Identifiers may be from one to eight characters long, and the 
first character in an identifier must be a letter. There are certain character 
strings that are reserved for use in DABAL instructions and must not appear as 
identifiers. These are: 
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FROM, THRU, IF, THEN, ELSE, and 

Subroutine names (OUTPUT, FORMAT, HEADER, etc. ) 

Any nonreserved name may be used as a variable name, set name or field name. 
When an identifier is defined as a field name, it may not be used for any other 
purpose until deleted. Any symbol used as a variable must not subsequently 
appear as a set name during the session, nor should a set name later appear as 
a variable. 

Variable names identify quantities that result from execution of an arithmetic 
statement or from assignment to a constant value. No data type is associated 
with a variable name, so any name may identify any integer, real, literal or 
logical quantity. 

Field names identify a previously defined portion of a data base record. These 
names may appear in arithmetic expressions but should never be assigned new 
values (i. e. , they should never appear on the left-hand side of an =. ) The only 
way new fields may be defined is by a call to a special MINIS subroutine. 

Set names identify a collection of data base records that ?neet all of the require- 
ments specified in a set definition statement. 

Subroutine names identify previously defined subroutines in the MINIS. 

These names may not appear in the normal DABAL arithmetic expressions and set 
definition statements. 

Subroutine names presently recognized by the system are: 

FIELD FIN 
MESSAGE 
RESET 
FORMAT 
HEADER 
NAMELIST 
SAVE TEXT 
INDEX 

2.3.2 Arithmetic Statements 

Arithmetic statements are used to assign real or integer values to variable names. 
They are of the form: 

v = e 

where v is any legal variable name and e is an arithmetic expression. 


AREA 

POINT 

WRITE 

OUTPUT 

PRINTER 

TERMINAL 

SUMSET 

CREATE 
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An arithmetic expression is a series of constants, variables and,/ or field names 
connected by arithmetic operators. Arithmetic expressions may be used to assign 
a value to a variable, as above, or may become a part of set definition statement 
as described in Section 2.3.3. 


The arithmetic operators follow the normal order of precedence (exponentiation 
before multiplication or division before addition or subtraction), except when 
grouped with parenthesis. Parenthetic expressions are always evaluated beginning 
with the innermost set of parenthesis. At any level of evaluation, operations of 
the same order of precedence are evaluated from right to left. Thus A + B + C is 
equivalent to A + (B + C). 

The arithmetic operators are listed below along with their meaning and numbers 
indicating their order of precedence. 


** Exponentiation 1 

* Multiplication 2 

/ Division 2 . 

+ Addition 3 

Subtraction 3 


Example: 


The arithmetic statement A = B*(C+D* (F/ (G + H) - I) + K) is evaluated in the 
following sequence: 



G + H 



D*t 3 

C+ t„ + K 

B * t_ 

5 


where the t^ indicates the sequence of evaluation. 

Some example arithmetic statements calculating income data for a cell in a census 
data base are: 


INCOM = INLT5K * 2500 + IN5T10 * 7500 + : 

IN 1020 * 15000 + IN2030 * 25000 
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PEOPLE = INLT5K + IN5T10 + IN 1020 + IN2030 
AVGINC = INCOM/PEOPLE 

PCTLT10 = (INLT5K + IN5T10)/PEOPLE 

2.3.3 Set Definition Statements 

Set definition statements are used to define constraints that are to be applied to 
data base records to form a set of member records. Set definition statements are 
in the form: 

s " R i l iV*V • • 

where S is any legal set name, the l's are logical operators (.AND., .OR., .XOR. 
.ANDNOT., .ORNOT., .NAND., or .NOR. ) and the R’s are relations defined as 
follows: 

R = f.NOT.J e re r . , , . , 

^ 1 2 •£ J denotes optional 

The r is a relational operator (.EQ. , .GE., .GT., .LE., ,LT., or .NE.) and 
the e's are arithmetic expressions like those described for arithmetic statements. 
.NOT. is an optional unary operator which applies to the result of e^ r e£. 

R = .NOT. e^ r eg means that R is true only when e^ r eg * s false. 

Set definition statements are evaluated in the following sequence: 

1. Arithmetic expressions 

2. Relational expressions 

3. .NOT. operations 

4. Other logical operations 

Again, at any level of evaluation, operations of the same order of precedence are 
evaluated from right to left. Parentheses nested to any depth may be used to 
change the order of evaluation. 

Examples: 

1. SET 1 = HOUSES . GT. 2 * (5 + 3) 

forms the set of records from the data base for which the field HOUSES 
contains a number greater than 16. 
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2 . SET 2 = HOUSES .GT. 16 .AND. PEOPLE. LT. 30 

forms the set of records for which HOUSES is greater than 16 and PEOPLE 
is less than 30. 

3. SET 3 = .NOT. HOUSES. LE. 16 .AND. PEOPLE. LT. 30 
does the same as Example 2. 

4 . SET 4= .NOT. (HOUSES. GT. 16 .AND. PEOPLE. LT. 30) 
forms the complement of SET 2. 

5. SET 5 * (.NOT. ( (HOUSES. GT. 16) .AND. (PEOPLE. LT. 30))) 
is equivalent to Example 4. 

6. SET 6 = .NOT. A .GE. 10 .OR. B .LT. 5 .ANDNOT. .NOT. 

. C. EQ. 15 .AND. D .NE. 20 

is evaluated in the following sequence: 

t, = D. NE. 20 t„ = t_ .ANDNOT. t. 

1 6 5 4 

t n = C. EQ. 15 t = A. GE. 10 

2 7 

t 3 =.NOT.t 2 t g =.NOT. t ? 

t4 = t 3* Aim 'I '9 = l 8 *° R * *6 

t =B.LT.5 SET6 = t 

5 9 

where the t. indicates the levels of evaluation. 

1 

2.3.4 Subroutine Calls 

Subroutine calls can take any of three forms. 

SUBNAME (a , a , . . . ), 

JL Ct 

i = SUBNAME (a , a , . . . ), or 

i. Ci 

SUBNAME 

where SUBNAME is any defined subroutine name, the a. are arguments, and i is 
any legal identifier for a set or variable. Identifier types to the left of the = and in 
the argument list are defined by the particular subroutine being called. 

Examples: 

OUTPUT (SET1, ALL) 

outputs all fields of each record in the set SET1. 
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TOTMASS = SUMSET (SETX, MASS) 

sums the MASS of each item in set SETX and assigns the total to 
TOTMASS. 

FIELD FIN 
MESSAGE 

these two calls invoke separate modules which obtain arguments through 
additional user dialog. 

2. 3. 5 FROM THRU Operator 

A shorthand method of defining a range of values exists for set definition statements 
using the reserved words FROM and THRU. A FROM. . . THRU. . . operation 
may appear by itself on the right side of the = or it may be used in conjunction with 
other logical operations. 

Examples: 

1. SET 1 = HOUSES FROM 10 THRU 20 
is equivalent to the instruction 

SET 1 = HOUSE S.GE. 10. AND. HOUSE S.LE. 20 

2. ' SET 2 = HOUSES FROM 10 THRU 20 . AND. PEOPLE. LT. 30 

3. SET 3 = HOUSES. EQ. 10. OR. PEOPLE FROM 20 THRU 30 
2.3.6 IF Statement 

IF statements provide for the logical test of a relational expression to control the 
execution of an arithmetic statement. The IF statement takes the form: 

IF R THEN a ELSE a 
X £ 

where R is a relation defined just as those used in the set definition statements. 

The a’s are arithmetic statements like those described earlier. 

The "IF" and "THEN" clauses are mandatory while the "ELSE" clause is optional. 

If the relation R is true, then a^ is executed. Otherwise, when the "ELSE" clause 
is present, a is executed. 
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Examples: 


X. IF HOUSES. GT. 2 THEN 1 

means that for a data base record the field HOUSES must be greater than 2 
in order for X to be assigned a 1. Otherwise, no action is taken. 

2. IF HOUSES, GT. 2 THEN X = 1 ELSE X = -1 

accomplishes, the same thing as Example 1 as well as setting X to -1 when 
HOUSES has a value that is less than or equal to 2. 

2.4 FIELD DEFINITIONS (FIELDFIN) 

The field definitions of a data base may be initialized, modified or displayed through 
the use of the FIELDFIN module. The field definition module is invoked by the 
subroutine call: 

FIELDFIN 

The field definition module responds with an acknowledgement: FIELD DEFINITION 
SETUP, and begins the dialog with: ENTER OPERATION TYPE. (ADD, DELETE, 
EXIT, LIST, MODIFY, OR REPLACE). 


ADD, MODIFY, and REPLACE perform essentially the same function of establishing 
a field definition. The dialog which follows is the same for all three functions except 
that blank line inputs are treated as zero for ADD and REPLACE, and as no change 
for MODIFY. The following dialog example for the ADD operation is applicable for 
all three. 


U: ADD 

C: NEXT AVAILABLE FIELD DEFINITION 

NUMBER IS: xx 

C: OK? (Y OR N) 

U: Y 

C: ENTER NEW FIELD LABEL. 

U: APPLES 

C: FIELD ID CONFLICT 

C: INPUT FIELD TITLE IF DIFFERENT. 

U: NO. OF APPLES IN BUSHELS. 

C: ENTER DATA TYPE . 


(if field no. xx is acceptable) 

(up to 8 character field name) 

(if APPLES is already used), or 
(enter a title for printouts) 
(example) 

(0 to 15 see table in COMMON) 
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U: 0 

C: ENTER CONVERSION CODE. 

U: 0 

C: ENTER FIELD SIZE IN BITS (BYTES 

IF TEXT): 

U: 10 

C: ENTER FIRST BIT POSITION OF FIELD 

IN RECORD. 


(0 is integer type) 

(0 to 15 see table) 

(0 or blank for no conversion) 
(see structure) 

(10 bits to permit 1024 maximum 
integer) 

(see structure) 


U: 165 


C: ENTER FIELD NO. OF KEY, IF ANY. 

U: 5 

C: ENTER VALUE OF KEY FOR PRESENCE 

OF THIS FIELD. 

U: 9 

C: ENTER NORMAL OUTPUT FORMAT 

FIELD WIDTH OR REPEAT COUNT. 

U: 1 

C: ENTER FORMAT TYPE. 

U; I 

C: ENTER SIGNIFICANT PLACES OR 

CHARACTERS PER WORD. 

U: 4 

C: IS THIS FIELD SEQUENTIAL ON THE 

DATA BASE? 

U: N 

C: FIELD ID OPERATION COMPLETE. 


(for example) 

At this point if a split field (see 
data structure) was specified, 
the user is requested to input the 
subfield size and the number of 
repeats. 

(Enter number if some other field 
must assume a. certain value for 
this field to exist) 

(for example) 

(1-15) 


(required Key value) 

(see FORMAT for 
format specifications) 

(1 repeat) 

(A- alphanumeric, I-integer, etc. ) 
(Integer format) 

(4 digit numbers) 


(Y if variable is monotonically 
increasing as the record number 
goes from 1 to the maximum) 
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The MODIFY operation is similar to the ADD operation with a few exceptions. When 
MODIFY is specified, the user is prompted: 

C: ENTER FIELD ID TO BE MODIFIED. 

U: APPLES (enter a previously defined first 

name) 

C: ENTER NEW FIELD NAME. 

U: ORANGES (if no change enter a blank line) 

C: ENTER FIELD TITLE IF DIFFERENT. 

U: 

The balance of the dialog for MODIFY is the same as in the ADD operation. A blank 
line response to any request is interpreted as no change to the affected parameter. 

If the REPLACE operation is specified, the following typical sequence occurs: 

C: ENTER FIELD NAME TO BE REPLACED. 

U: APPLES (field to be deleted) 

C: FIELD ID DELETED. 

C: ENTER NEW FIELD LABEL. 

U: ORANGES 

The remainder of the REPLACE dialog is the same as for the ADD operation. 

The DELETE operation removes the specified field definition from the definition 
table and packs the remaining definitions to remove any blanks. The field numbers 
associated with all succeeding fields are adjusted to reflect the change. The DELETE 
dialog is as follows: 

C: ENTER FIELD ID TO BE DELETED. 

U: APPLES 

The LIST command provides a listing of any or all field definitions in a horizontal or 
vertical format. The horizontal format lists each parameter of the field on a separate 
line. The vertical format lists the parameters in columns. An example of the vertical 
format is included in Appendix A. The dialog for the LIST command is as follows: 

C: HORIZONTAL OR VERTICAL LIST (H OR V): 

U: V (for columnar list, H for long list) 
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C: 

U: 


ENTER FIELD ID TO BE LISTED. (ALL TO LIST ALL IDS) 

ALL (table will be output as in 

Appendix A) 


The EXIT command is the only correct method of returning to the MINIS. If the 
system escape and restart is used, all changes input during the current session 
are lost. The EXIT dialog is as follows: 


C: SAVE FIELD DEFINITION CHANGES? 

U: N 

U: Y 


(Y OR N) 

(will exit with no changes) or 


C: 

C: 


U: 

U: 

C: 


ADJUST FIRST BIT POSITION FOR 
SUCCEEDING FIELDS (Y OR N)? 

(DO NOT ADJUST UNLESS YOUR DATA BASE 
HAS NO OVERLAPPING FIELDS AND FIELD 
NUMBERS CORRESPOND TO THE ORDER OF * 

THE FIELDS ON THE DATA BASE RECORD.) 

Y (fields will be concatenated with 

or starting bit numbers corrected) 

N (always use N if there are any 

"phantom'’ fields.) 

ENTER THE NUMBER OF BYTES IN THE 
DATA BASE RECORD (BLANK IF NO CHANGE): 


U: 36 

2.5 REPORT GENERATION (OUTPUT) 


(For example. Round up to the 
next word boundary. ) 


The OUTPUT permits the listing of all data base records of a set in user specified 
format or the default format specified in the field definitions. Any or all fields as 
well as any created variables may be output for each record. The user may also 
specify the use of special headers and previously defined lists of variables or fields 
to be output. 

To invoke the report generator, execute a call of the form: 

OUTPUT (SETNAM, £ HE ADR,} £ FORMT,} £ALL^f .VAR1, VAR2, 

. . . VARN) £ j denotes optional 

where SETNAM is the name of the set to be output, HEADR and FORMT are the names 
of predefined header and format specifications, and VAR1, VAR2, etc. are any field 
or created variable names. 
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The only required arguments are the name of a defined set and one or more variable 
names. All existing fields may be output by inserting ALL as the variable name. A 
predefined list of variables may be output by inserting the name of the list in the 
OUTPUT argument string. 

When an output format is specified, it must be the correct format for the variable 
list. (See FORMAT Section 2. 9. 3. ) For unspecified formats the available output 
columns are divided by the number of output variables. If the result is greater than 
eight spaces for each variable, the field title is used for each column heading. Other- 
wise the field names are used for headers. The field names are printed horizontally 
if 6 to 8 columns are available. Otherwise, they are printed vertically. Special user 
specified headers may be used by including the name of the header in the argument 
string. (See HEADER Section 2. 9. 4. ) 

Several examples of the use of the OUTPUT statement may be found in Appendix A. 

2.6 SUMMATION OPERATOR (SUMSET) 

SUMSET provides the capability of summing the values of a field or created variable 
for each record of a set. The operation is performed immediately and the result is 
printed when the calculations are complete. The SUMSET operator is used in equation 
form. For example: 

TOTAL * SUMSET (SET1, APPLES) 

The value, or quantity, of APPLES is summed for each record in the set, SET1. 

That total is then assigned to the new created symbol, TOTAL. 

2.7 MESSAGE MANAGEMENT (MESMAN) 

The message manager provides a means of adding, deleting, replacing or 'isting user 
messages. System messages may also be listed but not altered. The message man- 
ager is primarily used by other MINIS routines for message handling (HEADER, 
FORMAT, etc. ), but is made available to the user for direct message manipula- 
tion. To call MESMAN from the system, the user must enter: MESSAGE. 

The following dialog contains examples of each operation: 

C: MESSAGE MANAGER. INPUT OPERATION 

CODE. 

U: ? (if request not understood) 

C: ILLEGAL OPERATION. ENTER FIRST 

LETTER OF ONE OF THE FOLLOWING 
OPERATIONS: ADD, REPLACE, DELETE, 

EXIT, PACK, LIST, OR CHANGE. 
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•nr. *r 


U: 

C: 

U: 

C: 

U: 

U: 

C: 

U: 

C: 

U: 

C: 

U: 

C: 

U: 

C: 

U: 

C: 

C: 

C: 

U: 

C: 

U: 

C: 

C; 

U: 

C: 


ADD (for example) 

ENTER MESSAGE NUMBER, IF KNOWN. 

(CR) 

ENTER MESSAGE TEXT. INDENT WITH 
LEADING SPACES. TERMINATE WITH 
A BLANK LINE. 

THIS IS A SAMPLE MESSAGE. (for example) 

(CR) 

MESSAGE MANAGER. INPUT OPERATION 
CODE. 

REPLACE 

ENTER MESSAGE NUMBER IF KNOWN. 

97 (for example) 

ENTER MESSAGE TEXT. ... etc. 

(new message followed by blank line) 

MESSAGE MANAGER. INPUT OPERATION 
CODE. 

DELETE 

ENTER MESSAGE NUMBER, IF KNOWN. 

97 (for example) 

MESSAGE NO. 97 DELETED. (if 97 was legal) or 

INCORRECT MESSAGE NUMBER. (if 97 did not exist) 

MESSAGE MANAGER. INPUT OPERATION 
CODE. 


EXIT (to quit) 

y (system prompt) or 

PACK (to pack user message file) 

MESSAGE FILE PACK IS COMPLETE. 

MESSAGE MANAGER. INPUT OPERATION 
CODE. 

LIST (to list messages) 

ENTER MESSAGE NUMBER, IF KNOWN. (enter first message number) 
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U: 1 

C: ENTER LAST MESSAGE TO LIST. 

U: 5 

C: 1 

UTM ZONE NUMBER. 

2 

UTM CELL DESIGNATOR. 

3 

NUMBER OF OCCUPIED HOUSEHOLDS. 

4 

PEOPLE PER HOUSEHOLD. 

5 

COUNTY CODE. 


(for first user message. 1001 for 
first system message;.) 

(list first five user messages) 

(first five messages of land use 
data base) 


C: 

U: 

C: 

U: 

C: 

U: 

C: 

U: 

C: 


MESSAGE MANAGER. INPUT OPERATION 
CODE. 

CHANGE (change message numbers) 

ENTER MESSAGE NUMBER, IF KNOWN. 

97 (example) 

ENTER NEW MESSAGE NUMBER. 

95 

CHANGE MESSAGE 97 TO 95 OK? (Y OR N) 

YES 

MESSAGE MANAGER. INPUT OPERATION 
CODE., etc. 


2. 8 DATA BASE UPDATE (CREATE) 



CREATE enables the user to create or initialize new data base systems, update pre- 
existing systems, or modify pre-existing systems. CREATE allows the user to 
create data base records from a raw data source, which can be on cards, on mag- 
netic tape, or on disc. Any field defined for the data base record can be created 
from one or more elements (bytes, words, etc. ) of the raw data. One data base 
record can be created from any number of raw data physical records. The data 
base records created using CREATE can be sorted by 1 ro 4 fields and/or merged 
by 1 to 4 fields (merging will save only 1 record for each value of the requested 
fields; therefore eliminating duplicate records). An example of the use of CREATE 
to perform an update of the LANSAT data base is in Appendix A. 
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In order to use CREATE, the following MINIS files must be accessible: 

1. The field definition file -A FELDS 

2. The system message file-MESSYS 

3. The user message file -AUMES 

4. The file definition file -(data base access name) 

Other necessary files or data are as follows: 

1. Raw data (tape, cards, or disc) 

2. The operation card file or deck (on cards or disc - OPCARD) 

3. The raw data information file or deck (on cards or disc - INPUTD) 

4. The input information record (on disc or entered from the terminal- 
INPUTR 

The input information record contains information that defines the input modes 
for the other files and the raw data. It also defines the byte length of a physical 
and logical record along with the bit length and configuration of any key values. 
The format for tills record is as follows: 

Column 1 - I, U, or M (Initialization, update, or modify options) 

2 - L if the raw data tape is begun with a label record, otherwise 
blank 

8 - Input mode for operation deck and raw data information deck 

(D for disc, C for cards) 

9 - Raw data input device C, T, or D (cards, tape, or disc) 

10-18 - Raw data file name if any 

19-24 - Number of bytes per raw data physical record 
25-30 - Number of bytes per raw data logical record 
31-32 - Number of bits in key value (if any), maximum 32 
33-38 - Number of raw data records (if blank, processing will continue 
until an end-of-file is found) 

40-71 - Bit configuration of key value 

Tliis record is the first requested information after entering the routine 
CREATE. The user is asked to choose either default or manual mode. If 
default is requested, the input information record (INPUTR) is read from 
disc. Manual mode will request the record to be entered from the terminal. 

If the number of raw data records was left blank, this value will be then 
requested from the terminal. 
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The raw data information file (INPUTD) defines the elements on a raw data 
logical record that will be needed to create a data base record. The format 
of each record (describing the corresponding element) is as follows: 

Column 1-2 - Number of bits in the element (bytes if text) 

3-8 - First bit number of element (byte if text) 
bit origin is 0 - byte origin is 1 
9-10 - conversion code for the element 
=0 No conversion 
=1 ASCII to integer 
=2 BCD to integer 
=3 EBCDIC to integer 
=4 ASCII to BCD 

=5 Character to logical (T or Y=l, other=0) 

11-12 - data type code 

=0 integer or binary 
=1 ASCII 
=2 BCD 
=3 EBCDIC 

=4 Floating point (NOVA - 16 bit words) 

=5 Floating point (Data craft - 24 bit words) 

=6 Floating point (Sigma 5 - 32 bit words) 

=7 Floating point (IBM 360 - 32 bit words) 

=8 ASCII Text 
=9 BCD Text 
=10 EBCDIC Text 

Text is defined as any character data of greater than 2 times the number of 
bytes per word of the host machine (NOVA =4, Datacraft =6). 

The operation card file or deck (OPCARD) contains the necessary operations 
to create the data base fields from the elements on each raw data record. One 
or more operations may be requested to define a field from the raw data. Each 
operation card will define one operation. The format of an operation card is 
as follows : 

result: operand - operation - operand 

The operands must be afield, intermediate value (value that is defined by the 
operation cards), element, or constant. Fields are designated by their field 
names or by their field number preceded by an F (ex: F10). 




Intermediate values are designated by 11, 12, 13... Etc. Elements are desig- 
nated by El, E2, E3... Etc. Constants can be integer, real, or characters 
(Characters are surrounded by apostrophes. Only 2 times the number of bytes 
per word will be recognized within apostrophes, others will be ignored. Ex: 
on the NOVA ’CATTE' will cause CATT to be recognized; on the DATACRAFT 
'CATTE' will cause all 5 characters to be recognized. ) Results must be a 
field number or name, or an intermediate value. A field number or name in 
a result field will indicate the final operation to define a field and that field 
value that is computed will be stored on the data base record. There are 13 
possible operations as follows with examples of the use of each: 

EXAMPLE 

11= 5, F100 = E5 + 2.0 
FI = 11 + E3 or CLDCOV= +E2 
11= F2 - E4 or CLDCOV= -E2 
11= El * 5 
11= El / 5 

I1=E1 ** 12 or 11= El ** 2 
11= , SQ. 12 or II = 12 .SQ. 

F10= 13 . S+. 5 ( The second operation 
must be an integer constant. This 
operation will cause 13, 14, 15, 16, 17 to 
be added and stored on the data base in 
the F10 location.) 

Sum of the products of corresponding 

elements of Z arrays . S2. II = El . S2+ E4 * 5 

(This will cause the 1st element of El and E4 to 
be multipled and added to the product of the 
other 4 corresponding elements. The 3rd operand 
must by an integer constant. ) 

El/ 

Percent .% F2 = El. %. E4 (F2 = 100 round to 

nearest tenth of a percent. ) 

Character transfer . CH. F3 = El „ CH. 5 (Five characters will be transferred 

to F3 on the data base record. On the NOVA the 
maximum number of characters in an element is 4, so 
the 5th character will be transferred from E2.) 

Corresponding value table . CV. IZ= 2 . CV. El 
Search Table .SH. F10 = E5 .SH. II * 5 

The . CV. and . SH. operations essentially set up if 
statements. To use . SH. their must be at least one 
.CV. operation. An example of their use is as follows: 


OPERATION 


Assignment = * 

Addition + 

Subtraction 
Multiplication * 

Division / 

Exponentiation ** 

Square Root . SQ. 


Sum of N values . S+. 
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11 = 0 

12 = 2 .CV. El 

13 = 3 . CV. E2 

14 = 4 . CV. E3 

15 = 5 . CV. E4 
FZ=E5 .SH. II * 5 

This will cause a compare of E5 to the values in 
the table with 5 entries beginning at II and store 
the corresponding value of a true compare in F2. 

If E5 does not equal any value on the table, set 
F2 to the default value (1st value in table), in this 
case zero. For this case if E5 is equal to 2, F2 
is set to El; if E5 is equal to 3, F2 is set to E2; 
and so on. If E5 does not equal 2,3,4, or 5, F2 
will be set to zero. The second operand must be 
an intermediate value and the 3rd operand must be 
an integer constant. 

The maximum number of intermediate values and constants defined in the 
operation file is 50 each. 

The raw data can be input from cards, tape, or disc. The maxium physical 
record sizes are as follows : 

cards - 1 card (80 bytes or columns) 
tape - 1200 words 
disc - 1200 words 

Logical records can be no greather than 200 words in length. A logical record 
can be made from several physical records or several logical records can be 
made from one physical record. Also one physical record can equal one logical 
record. The logical record can be defined as sucessive groups of bytes .an the 
physical record (Such as every 40 bytes of a 400 byte physical record defines a 
logical record ) or defined such that each logical record begins when a key value 
is located and continue for a maximum number of bytes or until the next key 
value is located (a key value can be a maximum of 32 bits and must begin at the 
beginning of a byte) . 

The data base records that are created using CREATE can be sorted and/or 
merged on up to four field values. The fields for the sort are requested after the 
work or scratch area device has been entered (tape or disc). The fields are 
entered one on each line. Blank return will indicate no sort or the last field has 
been entered. The sorts are done in the order entered if requested, the merge 
fields are then entered in the same manner as the sort fields. A merge will retain 
only one unique record with the values of the requested fields and delete others. In 
an update, only the update records are sorted. If a merge is requested, these 
records will then be merged with the entire data base. If a merge is not requested, 
the update records will be added to the end of the data base file. 
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Before returning to the MINIS, any indexes that might exist are updated 
to include any hew records or modified records. 

The following is a simple outline of the execution of CREATE: (All user and computer 
commands are on the left. ) 


U: 

C: 


C: 

U: 


C: 

U: 

C: 

U: 

C: 

U 

u 

u 


CREATE 

DEFAULT OR MANUAL OPERATION? Default reads the input mode infor- 

mation record from disc (INPUTR). 
Manual requests the record to be 
entered from the terminal. 

NUMBER OF RAW DATA RECORDS? 

200 The raw data information deck and 

operation cards deck are read in 
from card reader or disc. The raw 
data is read and as each logical 
record is located the operation 
cards are executed and the values 
stored on the data base record. 

This continues until all physical 
raw data records have been pro- 
cessed. (200 as requested or an 
end of file reached. ) 

ENTER THE WORK AREA DEVICE (TAPE 

OR DISC)? 

T 

ENTER THE DEVICE NUMBER: 

8 

ENTER THE FIELDS TO SORT ON (BLANK 

IF NO SORT). ENTER THE LEAST SIGNIFICANT 

FIELD FIRST (and so on. Max of 4 fields. ) 

HHMMS 

PHNUM 

SAT 
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U: (Blank line) 

The created data base records are sorted 
first on DSL, then HHMMS. 




The created data base records are merged (with the existing 
records if update) on the field values of SAT, DSL, and HHMMS 

The indexes are now updated if necessary and control is returned 
to MINIS. 
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2. 9 SAVED COMMANDS 


The MINIS is capable of saving formats, namelists, and entire inquiry 
sessions for subsequent recall at any point in an inquiry session. 

Each saved header, format, etc. , is assigned to a user message number and 
stored in the user message file. The names associated with each saved sequence 
are saved in a separate file along with the type and number of each message. 

The actual input and manipulation of the saved sequences are accomplished via calls 
to the message manager. Each type of saved information and its correct usage 
is summarized in the following sections. 


2. 9. 1 Saved Text (SAVETEXT) 


Any legal statements in the MINIS language, DABAL, may be saved for 
future recall and execution. A typical use for saved text might be a data 
base where the same criteria are used to reduce a candidate set size or the same 
calculations and output statements are repeated at each session. The repetitive 
portions would be saved for subsequent one statement recall. The following is 
an example use of SAVETEXT. 


U: 

C: 

U: 

C: 

U: 

C: 


SAVETEXT 

ENTER OPERATION TYPE. (ADD, DELETE, EXIT, LIST, 
MODIFY, OR REPLACE) 

A 

ENTER SAVETEXT TITLE. 

TEXT1 

ENTER MESSAGE TEXT. INDENT WITH LEADING SPACES. 
TERMINATE WITH A BLANK LINE. 


U: SET 1 = DSL FROM 20 THRU 50 (EXAMPLE) 

SETOUT ~ SETl .AND. CC .LT. 30 
INSERT (LIST) 

(blank line) 

C: ENTER OPERATION TYPE ETC. 


The DELETE, LIST, MODIFY, and REPLACE commands perform the specified 
operation in the same maimer as the message manager except that messages are 
referred to by their associated titles instead of numbers. 
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2.9.2 Namelists (NAMELIST) 


The NAMELIST provides a shorthand method of referencing frequently used 
argument strings in output calls. Arguments included in a namelist should ap- 
pear in the exact sequence that they are to appear in the output statement. All 
spelling must be correct. Each referenced field or variable must exist. And 
each field must be separated by commas as in an output call. 

The method of creating and modifying namelists is the same as for the SAVETEXT 
operation. When the assigned name of a namelist is referenced in an output 
statement, the associated message is substituted for the namelist name. 

2.9.3 Format Specifications (FORMAT) 

The allowable output format specifications of the MINIS are basically those 
of the FORTRAN programming language. The MINIS can accommodate four 
basic types of data. Those types and their associated format letter codes 
are: 

A Alphanumeric or Text 

F, E Real or Floating Point 

I Integer 

L Logical (TRUE/ FALSE) 

All MINIS output is controlled by format field specifications. The field 
specification defines the number of print columns, the data type, and the 
number of significant digits of each cariable to be output. Default format 
specifications which are defined for each data base field by the field definition 
module are the same as FORTRAN specifications with a few exceptions: 

• The floatingpoint field width is entered as a repeat count. 

• The field width of an alphanumeric field is the product of the repeat 
count and the number of characters per word. 

• Leading zeros may be printed for integers by setting the number of 
significant digits in the repeat count. 

The general forms for each format specification are nAm, nFm, nlm, and nLm. 
Where n and m are integer counts. 

The "A" format is used for character or text data. Character data is used for up 
to four times the number of bytes per word of the host machine. Any larger 
field must be classified as text. The number of characters in the field should 


_ - ' 
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appear as the number of significant digits in the character format specification. 
For example: A 7 character field should be output as 1A7, a 5 character field as 
1A5, etc. The number of significant digits should be a multiple of the number of 
bytes per word for a text format specification. The product of the repeat count 
and the significant digits should be greater than or equal to the number of charac- 
ters in a text field. For example: A 37 character text field on a NOVA (a 2 byte 
machine) should be output with a 19A2 format. The same field on the Datacraft 
(a 3 byte machine) would use a 13 A3 format. 

,: F” and ”E" formats are both set up in the same way. The field width is entered 
as the repeat count, n, and die number of significant digits, m, follows die for- 
mat type. Some format specifications and their sample outputs are: 5F2-12.34, 
9E2 -0.67 E-ll, 4F0 123., 4F1-1.3. The same format specifications 

appearing in a format statement would be: F5. 2, E9. 2, F4. 0, F4. 1. 

Integer format specifications should have die maximum number of significant 
digits specified (m count), and the repeat count set to 1. For example; 114 1234, 
113 123. Integers requiring less than die allocated number of digits are printed 
with leading spaces in the extra print, columns. If leading zeros are desired, 
the format specification should have die number of significant digits entered as 
the repeat count. Examples: 511 will output die number 345 as 00345, Gil with 
output 7 as 000007. 

The logical format, ”L", may be used in one way, 1L1. The output is T or F 
for true and false, respectively. 

Special format specifications may be generated and edited by use of die FORMAT 
call from the MINIS. Each format statement should have a nambe (title) 
associated with it for future reference by an OUTPUT call. The format 
statements are entered and saved as a message in die same manner as in die 
SAVETEXT operation. 

Any FORTRAN format specification tiiat is legal on the host computer is per- 
mitted in a saved format statement. But the type and quantity of output variables 
must agree with the type and quantity specified in die OUTPUT statement lists. 

Default format specifications are ignored when using format statements, except 
for integers with leading zero printing. To suppress previously specified lead- 
ing zero printing, the default format must be modified. An example of a saved 
format is the LANSAT listing format. The format name is FORMER. The 
header format name is 1IEDMER. And the variable list name is LSTMER. 

The saved format associated with FORMER is: 

(IX, 11, 311, '-’511,216 , '/',I3, 3(' , ’,13), IX, 5A1, IX, GA1,I3, 16, '/'I4, 312) 
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The saved format is invoked by reference in the output statement. In the case 
of the LANSAT printout, the call is: 

OUTPUT(SET OUT, HEDMER, FORMER . EDSMER) 

which produces the sample MERITS printout found in Appendix A. 

2. 9. 4 Headers (HEADER) 

There are two types of headers available for MINIS output; headers generated 
from the field titles of the output variable list, and user generated header 
format statements. 

The system generated headers are merely a playback of the field names and, 
where space is available, field titles input by the user through the field defini- 
tion module. The default headers provide adequate information for nonrepetitive 
reports. 

Headers are created in the same manner as formats and saved text. To create 
a header the system call is HEADER. The routine requests the header name and 
accepts the header format as text. The header format should appear exactly as 
it would in a FORTRAN format statement with no variables to be output. An 
example of a header format statement is the header used for LANSAT' listing. 
HEDMER. The format associated with HEDMER is: 

(31H OBSR/’N-ID ORB ROLL/POS 1-4, 10X,’LAT LONG CC MFR », 
VPOSN MODAYR') 

A printout with this header is found in Appendix A. 

2. 10 COMMAND SEQUENCE (INSERT) 

Whole sequences of previously saved inquiries and commands (see SAVETEXT) 
may be recalled for execution by use of the INSERT command. All statements 
within the saved text segment must be executable commands in the MINIS 
A correct example of the use of this command is: 

INSERT (TEXTl) (see example in SAVETEXT) 

which will cause the folio wing sequence: 

SET 1 = DSL FROM 20 THRU 20 

SET NAMED SET1 HAS 250 MEMBERS. 

SETNAM = SET1 .AND. CC .LT. 30 

SET NAMED SETNAM HAS 10 MEMBERS 


INSERT (LIST) 
etc. 
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2.11 INDEX GENERATION 


In order for the user to generate, update, or delete index files, the dialogue 
routine INDEX is called. This routine collects and verifies the necessary infor- 
mation from the user and passes it to the generation routines GENDEX and 
GENATE. The dialogue routine ensures that the following restrictions are ad- 
hered to when generating, updating, or deleting index files: 

• Fields stored on the data base records in floating point form cannot 
be indexed. 

• Fields that are stored in sequential order on the data base cannot 
be indexed. A binary search is used to form sets when dais type 
of field is requested. 

• To generate an index file, the requested level must not exist and 
the previous level must exist. 

• To update an index file, die requested level must exist and all higher 
levels must also be updated to concur with die updated level. 

• To delete an index file, the requested level must exist and all 
higher levels must also be deleted. 

To generate a first level index file, the information needed for the file definition 
is located and the file definition constructed and stored. For each record on die 
data base, a file entry is written. This file is then sorted in. ascending order on 
the field value using die sort-merge routines. 

To generate a higher level index file, the segment size is calculated, die maxi- 
mum and minimum field values determined, and the file definition is constructed 
and stored. By scanning die previous level index file, the record pointer is 
determined for each entry and written on the file. 

To update any level index file, the index file is regenerated and the file definition 
written using the current file definition location. An index file is deleted using 
the routine FILDEL and its file definition is blanked out in die COMMON area 
FILDEF. 
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The following is an example of an index generation dialogue: 


V 

Q 

U 

e 


or 

C: 

Q: 

U: ; 

Q: 

U: 

C: 

U: 

C: 

or 

C: 

U: 


INDEX 

ENTER FIELD NAME 

APPLES (example) 

APPLES HAS 2 INDEX LEVELS. (example) 

LEVEL NO. OF ENTRIES 

1 276 

2 12 


FIELD IS NOT INDEXED. 

ENTER ACTION (GENERATE, UPDATE, DELETE, NONE) 

GENERATE (or UPDATE or DELETE) 


ENTER INDEX LEVEL: 

1 

ENTER WORK AREA (DISC OR TAPE): 
TAPE 

ENTER DEVICE NUMBER: 


(or 2) 

(if b = 1) 

(or DISC) 

(if c = tape) 


if b = 2 

ENTER NUMBER OF SEGMENTS: 
12 


after action is completed 

Q: GENERATED INDEX LEVEL X. FOR APPLES (if a = generate) 

NO.. OF ENTRIES = XXXXXXX 
or UPDATED INDEX . . . 


or DELETED INDEX ..... 
C: EXIT OR CONTINUE: 

U: EXIT 

if ’'CONTINUE",. 

Q: ; ENTER FIELD NAME: 


(or. CONTINUE) 


2. 12 SPECIAL REPORTS (WRITE) 

Some calculated values are the same for each record in a set. (Such as SUMSET 
results.) The WRITE instruction is included in the MINIS to permit one time 
listing of this type of calculated quantity or constant in an output report. The 
WRITE statement may be used to output as many values as desired, with or 
without reference to a user provided format. 

Examples: 

WRITE (X) 


RESULT: 

X~ 

10.21 



WRITE (X,Y) 
RESULT: 

X= 

10.21 

Y= 

20.42 


WRITE (X, Y, FMATXY) 

FMATXY=(1X, ’THE VALUE OF X IS F5. 2, 4X, ’TIIE VALUE OF Y IS F5 .2) 
RESULT: THE VALUE OF X IS 10. 21 THE VALUE OF Y IS 20.42 

2. 13 LANSAT DATA BASE ACCESS (POINT AND AREA) 

The LANSAT data base is a large fixed record length data base which is compatible 
with the MINIS. The primary access to LANSAT data is through a two variable 
geographic index that the MINIS does not normally accommodate. The POINT 
and AREA routines perform all index searches for LANSAT data base searches. 
POINT and AREA can only be entered if the data base name is "LANSAT. ” - 

POINT selects all records (photo descriptions) with an area of coverage over the 
specified geographic coordinates. POINT accepts the defining coordinates, 
locates the appropriate records and names the set POINTSET. An example 
dialogue is: 


U 

C 

u 

c 

u 

c 

u 

c 


POINT 

ENTER LATITUDE 

33N 30 (33 Deg. 30 Min. North Latitude) 

ENTER LONGITUDE 

85 (85 Deg. West Longitude) 

SET NAMED POINTSET HAS 135 MEMBERS. 

SETOUT = POINTSET .AND. CC .EQ. 0 
SET NAMED SETOUT HAS 27 MEMBERS 
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U: INSERT (LIST) 

C: A list of the photos in set SETOUT would appear here. See sample outputs 

in Appendix A. 


AREA locates all photo records with center coordinates within the specified rec- 
tangular area. The user enters the "lower" and "upper" latitudes and "smaller" 
and "larger" longitudes to define the rectangle. The coordinate system origin is 
at the equator at 0 degrees longitude (Greenwich Meridian). Latitudes are entered 
as negative displacements for the southern hemisphere and range from -90 at the 
South Pole to +90 at the North Pole. Longitudes are entered as negative for east 
longitude and positive for west longitude. They range from -180 at the International 
Date Line, increasing east to west to 0 at the Greenwich Meridian, to +180 at the 
Date Line. The located set is named AREASET. An example area search follows: 


U 

C 

u 

c 

u 

c 

u 

c 

u 

c 

u 

c 


AREA 

ENTER LOWER LATITUDE: 

-5 or 5S (define an area at the origin) 

ENTER UPPER LATITUDE: 

7N or 7 

ENTER SMALLER LONGITUDE: 

-7 or 7E 

ENTER LARGER LONGITUDE: 

4 45 or 4. 75 or 4W 45 

SET NAMED AREASET HAS 15 MEMBERS. 

SETOUT « AREASET 

SET NAMED SETOUT HAS 15 MEMBERS. 

etc. 


2.14 DEFINE LISTING DEVICES (PRINTER, TERMINAL) 

The on-site user of MINIS on a computer equipped with a line printer has the 
option of listing his outputs on the printer. Remote site users do not have this 
option. To set the listing devices to the printer, enter: 

C: > 

U: PRINTER 

C: > 
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To restore the listing device to the terminal, substitute TERMINAL for PRINTER 
in the above dialogue. 
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SECTI0N*3 - SYSTEM DESCRIPTION 


This section describes the operation of the major modules of MINIS. These 
descriptions are similar to the program description documentations included 
with each subroutine. The descriptions included with the programs for several 
of the modules are considered to be of sufficient detail and are not repeated in 
this section. The descriptions included in this section are the following: 

• General System Operation 

• Set Formation 

• Lexical Analyzer 

• Parser 

• Instruction Synthesizer 

• Execution Stack Interpreter 

• Report Generation 

Complete COMMON listings are also included in this section. A description of 
each entry is given for all names COMMON array. 

^RECEDING PAGE BLANK NOT FILMED 
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GENERAL SYSTEM OPERATION 


The system performs all of its operations through a series of user input 
commands followed by appropriate system responses. 

Following loading of the system, the data base select (DBLOAD) module is 
invoked. DBLOAD loads the data definitions of the named data base along 
with indexed variable information and any special vocabulary. Control is then 
passed to the main system modules. 

The main system module (CONTROL) accepts user commands and calls up 
the compiler routines (LEXICAL, SYNTHE, PARSE) to generate an internal 
interpretive code. The code is examined to determine the type of command 
given and an appropriate execution submodule is invoked. Interactive opera- 
tion modules are loaded into overlay zones and executed for direct commands 
such as FIELDFIN, INDEX, CREATE, SAVETEXT, etc. An argument list 
is composed for subroutines with variable lists such as OUTPUT, WRITE, or 
SUMSET. The module is loaded and control is transferred to it with a pointer 
to the argument list. Arithmetic statements are simply identified for subse- 
quent execution as data is accessed during set formation and report generation. 

As each module completes its operations program control is returned to the 
input stage of the CONTROL module. 


SET FORMATION 


Set formation is initiated when the user defines a set. To identif}' the data base 
records which are members of the set, the routine EXSETD first calculates the set 
limits or endpoints. If an .AND. operation is used to define the set, the data base 
records listed in the candidate file are examined for sef 1 membership using routine 
SUBSET. For set definitions involving indexed fields, the index routines. VARINX 
and SCINDX are used to determine the candidates for set membership. Otherwise, 
all data base records are candidates for set membership. 

In order to determine if a data base record is a member of the set, the instructions 
which define the set must be executed using the data on the data base record. To 
do this, each symbol in the set instructions is first reverse scanned to identify and 
flag any created variables that may be needed to define the set. 

The reverse scanning process is performed by REVSCN. The instructions defining 
each created variable needed to define the set are flagged and examined for any 
other created variables. If any are found, its instructions are also flagged and 
examined for created variables. This process continues until all instructions 
necessary to define a created variable have been flagged. 

In order to determine if a database record is a member of the set, EXCANS exe- 
cutes the set instructions and all flagged instructions using the routine EXQUA.D. 

In EXQUAD, the operands of each instruction are located by EXOPRN and their 
values extracted from the data base record by EXTFLD. The necessary operation 
is then identified and performed and the result stored with that instruction. After 
the execution of all the required instructions, the final result is returned to EXCANS. 
A final result of true (-1) indicates that the data base record is a member of the 
set, and the record number is then stored in the first word of the ICAND array and 
the bit in the last two words of the array referring to the set is turned on. The array 
is then written in the candidate file and the set membership count incremented. 

After each candidate has been examined for set membership, a message is returned 
to the user by EXSETD giving the number of data base records found to be members 
of the set. 
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LEXICAL ANALYZER 


The purpose of the execution stack interpreter for the MINIS is to examine the 
instruction types indicated by the quad stack entries and to initiate actions 
parser. Subroutine LEXCAL controls the three step process of isolating a sentence 
symbol, classifying the symbol and making an entry in the internal sentence stack. 
Two special functions of LEXCAL are the detection of unary plus and minus oper- 
ators and the transfer of format specifications to format routines without further 
processing. 

Symbol isolation is accomplished by subroutine GETSMB. A path through a simple 
tree structure is traced as successive characters are picked up from the input 
buffer. If no typing errors have occurred, then the symbol is determined to be one 
of the following general types of character strings: 

o : Alphanumeric 

o Integer constant 

o Real constant 

o- Special (.AND, , .LE., etc.) 

o Literal (Hollerith) constant 

A flag is returned to LEXCAL indicating the type of character string that is stored 
in the temporary buffer, an error condition or the end of line indicator. 

An alphanumeric string is characterized by a leading alphabetic character or a 
percent (%) sign followed by either alphabetic, numeric or percent characters. 

An integer constant can have an optional plus or minus sign and a string of digits. 

A real constant is identified by a leading sign and optional integer string followed by 
a decimal point and another string of digits that represent the fractional portion of 
the constant, an exponent may also be included which can consist of a sign, the letter 
E and a two digit integer which represents a power of ten. Special strings arc sur- 
rounded by periods and contain only alphabetic characters. Literal constant strings 
are surrounded by "tic" marks and contain as many as eleven characters, none of 
which can be another "tic" mark. If any less that eleven characters appear in a 
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literal constant string, trailing blanks are supplied. 

Next, LEXCAL passes control to subroutine CIIKSYM to further classify the symbol 
and make entries in the symbol table when necessary. For alphanumeric and special 
strings, the symbol is lengthened to eight characters by adding trailing blanks. 

The symbol table is searched and, if a match is found, the symbol table pointer is 
returned to LEXCAL. If not, the reserved word and the field name lists are checked 
in that order. A match in the reserved word list causes an integer reserved word 
code to be returned. No symbol table entry is made unless the symbol represents , 
a logical constant, (either . TRUE, or . FALSE. ). A match in the field name list 
causes the field name to be entered in the symbol table and a pointer to be returned 
to LEXCAL. 

Integer, real and Hollerith strings are stored in the symbol table as integer, float- 
ing point or Hollerith values respectively and the symbol table pointer is returned to 
LEXCAL if an identical value does not already exist. 

Finally, LEXCAL passes control to subroutine MAKSEN to build the internal form 
of the sentence to be used by the parser. Symbol table entry pointers are stored 
as negative numbers, and reserved word codes are stored as positive numbers 
in an array that allows up to one hundred symbols per sentence. 

During lexical analysis the following errors can occur: 

o Illegal Symbol - an unexpected or illegal character is encountered 
while building a symbol. 

o Too many characters in symbol - more than eight characters in an 

alphanumeric string or more than 20 characters in a constant string. 

o Symbol table overflow - no more 12 byte symbol table entries will 
fit in the symbol table common area. 

o Too many symbols in sentence - more than 100 symbols in a sentence. 
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PARSER 


Subroutine PARSE controls the analysis of syntax of the internal sentence formed 
by the lexical analyzer. The general outline of the parser may be found in Algorithm 
3 of the March 1970 Computing Surveys , pages G5 through 82. 

The Data Base Access Language (DABAL) is set up as an N X 4 list structure 
as required in the algorithm. Each entry in the list structure, or syntax graph, 
contains a value field and three pointers. The value field contains a symbol code 
which is determined to be terminal or nonterminal by the first pointer field. 

This "DEE" pointer field can contain a positive pointer to the first in a list of entries 
that make up the right side of the production that defined the nonterminal symbol. 
Otherwise, the DEE field contains a special flag indicating that the symbol is a 
terminal. The next cell, called the "ALT” field, contains a pointer to the first 
in a list of alternative definitions for the nonterminal symbol. ALT can also 
contain a flag which indicates the end of the alternative definitions for the non- 
terminal symbol. 

The "SUC" cell, the last pointer in the entry, points to the succeeding symbol in 
a definition. If no succeeding symbol exists a special flag is entered in place of 
a pointer. 

PARSE contains a nonrecursive, back tracking algorithm which attempts to match 
the internal sentence formed by LEXCAL to a path through the syntax graph. 

Any time that the syntax graph indicates that a variable name or constant is required, 
subroutine PARVOC is called in order to check the existence of the proper entry in 
the symbol table. In the event that no path is found for the sentence or that a symbol 
is used improperly, a "SYNTAX ERROR" message is typed on the users terminal. 

If no errors occur, PARSE produces an N X 2 stack which contains all of the symbol 
codes in the sentence along with a positive integer indicating each symbol’s level 
in the grammar tree. 

Subroutine PARVOC checks for the existence of symbol table entries in the following 
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manner. Two arrays are defined in PAR VO C to provide a list of legal symbol 
types for each terminal symbol code that is possible in the value field. The first 
larray corresponds on a one for one basis with all of the values that are possible. 

For each value, a count is stored in this array that indicates the number of dif- 
ferent symbol types that are stored in the second array for that value. The type of 
the allowable types listed in this second array for that value. The type of the 
symbol in question is compared with each of the allowable types listed in this second 
array to determine if a legal symbol has been used. If the proper code is present 
in the second array, the symbol may be newly created. A flag is set according 
to whether or not a match of symbol types was found and control is passed back to 
the parser. 
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INSTRUCTION SYNTHESIZER 


The function of the instruction synthesizer is to examine the output from the parser, 
determine sentence type and build a series of execution quadruples. Subroutine 
SYNTHE controls this process by picking up the sentence type from the second entry 
in the N X 2 parse stack, determining where each clause begins and ends and pas- 
sing each clause to subroutine SYNTH 1 for further analysis. 

Subroutine SYNTH 1 begins by removing all nonterminal symbols from the N X 2 
stack, eliminating any grouping symbols that appear in the stack and sorting the 
stack members according to the level in the grammar tree. This exercise resolves 
all questions of hierarchy as well as reducing the number of symbols to be encountered 
by the rest of the routine. 

Next, SYNTH 1 begins the process of building the execution quadruple stack by 
determining what type of clause has been passed to it. If the clause is anything 
other than a subroutine cell, the scan of the N X 2 array begins. As each entry- is 
encountered a push down stack of symbol table entries is build, and members of 
this stack are popped up whenever operators are found. Unary operators cause 
one entry to be popped, and binary operators bring out two entries. A quadruple is 
built each time an operator is found and a pointer to that "quad is pushed onto the 
stack. An exception is the case of a "FROM. . . THRU. . . " operation. In this in- 
stance, no quadruples are formed until the THRU operator and its associated operand 
are found. Then, quadruples are formed for the equivalent expression stated in 
terms of relational operators. An example of this would be the case in which 
"X FROM A THRU E" would be converted to "X. GE. A. AND. X. LE. B". Thus, 
three quads would be formed when only two operators were found in the original 
expression. 

For subroutine calls the N X 2 array contains the symbol table entry number for the 
subroutine name and entry numbers for each of the arguments in the calling list, 
SYNTH 1 flags the subroutine name and produces a string of quads with no operation 
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codes and pairs of arguments until all arguments are included. 

Finally, if the clause processed by SYNTH 1 was a variable or set definition, the 
third field of a selected symbol table entry is supplied a value. For set definitions, 
a count of the number of sets that have been formed is kept. This count is incre- 
mented and the value' is stored in the symbol table entry for the set name. For 
variable definitions, a pointer to the first quad that makes up the definition is en- 
tered into the symbol table entry for the variable name. 
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EXECUTION STACK INTERPRETER 


The purpose of the execution stack interpreter for the OLDMAN system is to ex- 
amine the instruction types indicated by the quad stack entries and to initiate actions 
accordingly. Subroutine INTER P controls this examination process and provides 
the added capability of delayed execution and immediately executable instructions. 

INTER P first checks a system flag to determine if the delayed mode is currently 
in effect. If so, this means that most instructions are to be stored for later ex- 
ecution. The only exceptions are a set of immediately executable subroutines that 
have special codes in the symbol table. One of these subroutines is "EXECUTE” 
which resets the immediate mode flag and causes all delayed instructions to be 
executed. 

If the system is not in delayed mode, a check is first made to determine if the next 
instruction is a "DELAYEX". If so, the flag discussed in the preceding paragraph 
is set so that the delayed mode will be entered. If not, subroutine EXSTMT is 
called with starting and ending quad pointers of the instruction sent as arguments. 

EXSTMT extracts the instruction type from the first quad. No action is required 
when a variable definition instruction is encountered so control immediately passes 
back to INTER P in this instance. Set definition instructions, on the other hand, 
require extensive processing to arrive at a group of candidates that fit the criteria 
described in the instruction. The starting and ending pointers are passed on to the 
set formation module so that the quad table can be searched for all variables ref- 
erenced by the instruction. After the set has been formed, a message is typed 
on the user’s terminal indicating the number of members included in the set. This 
count is also stored in the SETCNT common area and control is returned to INTERP. 
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S1ST SUMMATION 


The function of the routine SUMSET in to sum the values of a field or created variable 
over a given set. This routine is immediately executed upon a call to SUMSET by 
the user. The set number, variable or field to sum, and the variable name under 
which the result is stored, is obtained from the quad created by the call to sumset. 
The candidate file is scanned and for each candidate in the set, the corresponding 
data base record is read into core. The field is then extracted or, in the case of a 
created variable, the quad executed to determine the value for that record, and the 
value is added to the sum. After all candidates are considered, the result is printed 
out. The result is also stored in the quad table and can be used in further calcula- 
tions in the same manner as a created variable. 


REPORT GENERATION 


The report generation module (OUTPUT) is designed to allow output of data base 
records within a given set. All or only requested fields may be output, along with 
any created variables that may be associated with the given set. The printout can 
be directed to the originating terminal device (CRT, TTY, Exccupcrt, etc. ) or 
optionally to the line printer. 

The output is arranged in columnar form, with headings at the top of each page, 
above each column of each data base record in the set of data and the values for 
each parameter requested on the same line under the appropriate heading. Spacing 
between each column of data is determined by the number of parameters requested. 
If more parameters are requested than there is room for on one page, a second page 
(or more if necessary) will be printed after all data is printed for the parameters 
that could be fit on the first page. 


The type of heading for each parameter is determined by the amount of spacing avail- 
able. When less than six spaces are available for a column of data, the parameter 
name is used vertically in the heading. When six to eight spaces are available, the 
parameter name is used horizontally. For spacing of greater than eight spaces, the 
field title, is printed horizontally on the least number of lines necessary with a max- 
imum of six lines. For a created variable, the parameter name is always used. 
Parameter names are always right justified over the columns of data. 


The format used to print each field is found in the corresponding field definition in 
common (FIELDS). Created variables always use the format F10. 2. Spacing be- 
tween each requested parameter is determined by the field width of the format of 
each parameter. Extra spaces on each page are divided equally among each field 
on the page. The maximum column width is 20 spaces and the minimum is one more 
than the necessary field width. 

Upon request from the user to output data, a table is formed listing the parameters 
to be output and the required field width for that parameter. This table is then used 
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to build the headers for each page, which are stored in a format array. The data 
output formats are then built and stored in another format array. After the header 
is printed at the top of the page, the data for each line is extracted and printed one 
line at a time. New pages arc begun with a header of the top, when more than 33 
lines are needed to print the data (GO for the line printer) or if more parameters 
were requested than could be fitted on one page. 
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LABELED COMMON 


NAME 

LENGTH 

USAGE 

SYMTAB 

404 

Symbol Table 

QUATBL 

505 

Quad Table 

FILDEF 

231 

File Definitions 

DEFNAM 

10 

Name of FILDEF File 

DATARY 

1002 

Data Array 

FIELDS 

1200 

Field Definitions 

IOARAY 

150 

I/O Array and Device Info 

MESNDX 

300 

User Message Index 

REUSE 

10001 

Scratch Core Area 

COMTAB 

100 

Communications Table 

FILSTK 

110 

Defines Disc File Stack 

OUTBUF 

881 

I/O Buffering Area 

SETCNT 

51 

Set Information 


SYMBOL TABLE 


COMMON/SYMTAB/NSYMS , MXSYM, NS UBS, NISUBS, ISYMS (4, 100) 


NSYMS 
MXSYM 
NS UBS 

= No. of Symbols in Tabic 
= Maximum No. of Symbols - 100 
= No. of Defined Subroutines 


NISUBS 

ISYMS 

SYMBOI 

= No. of Immediately Executable Subroutines (Listed First in Symbol Table) 

- Entry For Each Symbol 

BYTES INFORMATION 

1-8 Symbol Name (ASC II) 

Constants - Value of Constant 

(Left Justified in Minimum No. of Words) 

9 Symbol Type (See. Code Table) (Integer) 

10 - 12 Referenced Array Pointer (Integer) 

i TYPE CODES 

CODE 

TYPE 

REFERENCED ARRAY 

0 

Subroutine Name 

Unused 

1 

Subroutine Name 

Unused 

o 

Field Name 

Field Definition Array (Fields) 

3 

Set Name 

Corresponding Bit in ICAND (2) 
and ICAND (3) (SETCNT) = Set- 
Number 

4 

Created Symbol 

Last Quad Defining Created Symbol 
(QUATBL) 

5 

Subroutine Name 

Unused 

G 

Constant Integer 

Unused 

7 

Constant Real 

Unused 

8 

Constant Logical 
= 0 False 
= 1 True 

Unused 

9 

Constant Hollerith 

Literal Storage if Needed 

10 

Special Reserved Words 
"All" - Indicates 
Printout of All Fields 
Defined For the Data 
Base 

Unused 

11 

Namelist Title 

Message no. in User Message File 

12 

Header Format Title 

Message no. in User Message File 

13 

Data Format Title 

Message no. in User Message File 

14 

255 

Schema Title 
Illegal Symbol 

Message no. in User Message File 
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QUAD TABLE 


COMMON/QUATBL/MXQUAD, IQUAD, IDUMl, IDELX, NSET, IQU (5,100) 


MXQ.UAD = Maximum No. of Quads = 100 

IQUAD = Last Quad Created (Current No. of Quads) 

IDUMl = Unused 

IDELX = First Quad Following a Delayx 

NSET = Number of Defined Sets 

IQU (5, 100) = Quads (5 words) 


WORD 


USAGE 


1 

2 

3 

4*5 


Operation (See Table) 
1st Operand Pointer 
2nd Operand Pointer 
Result of Operation 


FORMAT 

Integer 
Integer 
Integer 
Floating Point 


FIRST QUAD OF EACH STATEMENT 
WORD 1 = 73 

WORD 2 = Statement Definition (See Table) 

WORD 3 = Execution Flag -1 Execute 

0 Do Not Execute 
-2 Previously Executed 

WORD 4-5 = Final Result of Statement (After Execution) 
OPERAND POINTERS 


Positive - 

Point to Symbol Table Entry 



Negative - 

Point to Quad Table Entry 



OPERATION CODES 



CODE 

SYMBOL 

DEFINITION 

RESULT 

1 

* 

Multiplication 

(1st operand * 2nd operand) 

2 

/ 

Division 

(1st operand/2nd operand) 

3 

+ 

Addition 

(1st operand + 2nd operand) 

4 

- 

Subtraction 

(1st operand-- 2nd operand) 

5 

ss 

Assignment 

(2nd operand) 

6 


Subroutine Call 

(1st operand) 

7 


NOP 

Result = -l=True otherwise 




Result =0=False 

8 

.OR. 

Logical OR 

1st Operand + 2nd Operand < 0 
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QUAD TABLE (continued) 


9 

.AND. 

Logical AND 

1st Operand + 2nd Operand + =C 

10 

,XOR. 

Logical XOR 

1st Operand + 2nd Operand + 1=C 

11 

.ANDNOT. 

Logical NOT 

1st Operand + 2*2nd Operand 

+ 1 = 0 

12 

.ORNOT. 

Logical ORNOT 

1st Operand - 2nd Operand - 1<C 

13 

.NAND. 

Logical NAND 

1st Operand + 2nd Operand +: 0 

14 

.NOR. 

Logical NOR 

1st Operand + 2nd Operand = 

5 

>GT. 

Relational Operator 

1st Operand - 2nd Operand > 0 

16 

. LT. 

Relational Operator 

1st Operand - 2nd Operand^ t 

17 

. EQ. 

Relational Operator 

1st Operand - 2nd Operand =i 

18 

.GE. 

Relational Operator 

1st Operand - 2nd Operands 0 

19 

. LE, 

Relational Operator 

1st Operand - 2nd Operand^* 

20 

.NE. 

Relational Operator 

1st Operand - 2nd Operand / . 

'T 

.NOT. 

Unary NOT 

Result = -1.0- 1st Operand 

22 

+ 

Unary + 

Result 1st Operand 

23 

- 

Unary - 

Result - 1st Operand 

24 

** 

Exponentiation 

Result 1st Operand ** 2nd 
Operand 

73 


Beginning Statement 
Code 


STATEMENT CODE 


DEFINITION CODES 


1 


Type Statement 


2 


Set Definition 


3 


Unused 


4 


If Statement 


5 


Unused 



6 Subroutine Call (Assignment Type) 

7 Subroutine Call (Non- Assignment type) 

Code + MO = THEN (Code + 32) 

Code + 'GO = ELSE (Code + 48 


FILE DEFINITIONS 


COMMON/FILDEF/IDEF (231) 


Word 


Usage 


1-3 

4 

5 


Data Base File Name 
No. of Records 
No. Of Bytes/Record 


6-8 

9 

10 

11-13 

14 

15 

16-18 

19 

20 

21-23 

24 

25 

26-28 

29 

30 

31-33 

34 

35 

30-38 

39 

40 

41-N 


11-13 


or 


Users Message List File Name 

No. of Records 

No. of Bytes/Record (NBW) 

Field Definition File Name 
No. of Records = No. of Fields 
No. of Bytes/Record (18) 

Synonym and Vocabulary File Name 
No. of record = no. of synoyms 
No. of Bytes/Record 

User Titles File Name 
No. of Records 

No. of Bytes/Record (6*NEW) 

SCRCH 1 

Candidate File Name SCRCH 2 

No. of Records = No. of candidates 
No. of Bytes/Record NBW + 6*NEW 


Transaction input file name (for up dates) 

No. of Records 

No. of Bytes/Record 

System Message File Name (MESSYS) 

No. of Records 

No. of Bytes/Record (NEW) 

Index File ID’s in 10 word blocks 
(Total of 19 blocks) 

Index File Name 

XFNOLT X=meshed character 
from all characters of 
the data base file name. 
FNO=Field No. (3 digits) 
L=Level No. (1 digit) 
T=Type No. (ldigit) 


Format 

3A2 

I 

I 

3A2 

I 

I 

3A2 

I 

I 

3A2 

I 

I 

3A2 

I 

I 

3A2 

I 

I 

3A2 

I 

I 


3A2 


3-19 


14 

No. of Records = no. of entries 

I 

15 

No. of Bytes/Record 

I 

16-17 

Level 1 Level 2 
Field No. Minimum Value 

I or FLT 

18-19 

Level 1 Level > 2 

No. of bits for field Segment size 

I or FLT 

110 

No. of Bits for Pointer 

I 


Unused 



All index file ID’s are entered in sequence so that a level I file appears before a level 
2, level 2 file before a level 3, and so forth. When a file is deleted, all successive 
files for that field are deleted also. 
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DEFNAM 


COMMON/PEFNAM/NAMDEF (10) 

NAMDEF (1-3) - name of FILDEF file 

(4) - no. of records in file (231) 

(5) - no. of bytes/ record 

(1 word/ record) 

(6- 10)- Unused 

The name given by the user at data base select time is the name of the file 
definition file. 


3A2 

I 

I 
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DATARY 


COMMON/ D AT AR Y/lDMl , ID M2, IARRAY (1000) 

ID MI Record no. stored in IARRAY 

IDM2 Unused 

IARRAY Temporary core storage of one data base record. 




FIELDS 


COMMON/ FIE LDS/IDFLD (1200) 

For each field, 18 bytes hold the field definition. A maximum of 200 fields are 
allowed. 


Bytes 

1 

2 

Word 1 3 

4 

5 

Word 2 6 

7 

8 

Word 3 9 

10 
11 

Word 4 12 

13 

14 

Word 5 15 

16 

17 

Word 6 18 


Bits 12 3 4 5 6 7 8 


0 
8 

16 
24 
32 
40 
48 
56 

64 (Note 6) 68 

Field # of key, if any I Key value for presence of this field I 

72 

First bit position of field in record I 


88 

No. of bits in this field I 


96 

Data type (Note 1) I 

100 

Bits in first sub-field (Note 2) I 

104 (Note 3) 

No. of repeats, if any I 

110 

Field out- 

112 

Put format (A, I, or F) (Note 4) A 

118 

Format out- 

120 

Put field width I 

124 

Format significant digits I 

128 Iden. field 129 133 H. flag 

flag yes= set Code conversions (Note 9) (Note 10) 

134 

Levels of indexing I 

136 143 

Message no. of field title (Note 7) I 


Field Definition Bit Map 


Field Identifier 
(8-Byte Name) (Note 5) 


A 
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FIELDS (Continued) 
Note 1: 


Field Data Type Codes 
Code Type 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


Integer 

Real (Floating Point) 

Message Number 
UTM Coordinate 
Boolean (T or F) 

Signed integer (two’s complement form)(- 32768 min. value) 

Character 

Text (Note 8) 

Split Field Both Integer 

Both Real 
Both Messages 

1st Message 2nd Integer 

2nd Real 

Unused 

Reserved for ’NO DATA PRESENT' 


The first portion of any split field must be an integer identifying code. The 
code may also be a message or integer number. 


Note 2: 

The number of bits in the second portion of a split field is equal to byte 12-byte 
13 (b 4 -b 7 ). The number of bits in the first portion of the field (number of bits 
in the subfield) is used to identify the field (Note 7). 

Note 3; 

If non- zero, it indicates the number of successive bytes in which the field 
may appear. Byte size is determined by byte 12. Repetitive fields must be 
split. The first portion must match byte 18. 

Note 4; 

Display format type - Fortran type codes. 

If I format is used with output field width (bits 118-123) greater than 1 and 
significant digits (bits 124-127) equal to 1 (example; 311), then data will be 
printed with leading zeros if any. 

D format — for dates — will cause a resultant format of 12, >-’,12, ' , . . . (example: 
DG = 12, ’-',12, ’-’,12). 
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FIELDS (continued) 


Note 5; 

If the field name is longer than eight characters, an identifier is substituted and 
byte 18 is set to the message number containing the actual field name. 

Note 6; 


b Q - bg is the field number the key or record type identifier. 

- by is the value the identifier must be for this field to be present . 

If byte 9 is zero, it is assumed that the data base is not keyed or at least that 
the field is not keyed. 

The use of a key is included to permit disimilar fields of a record to occupy 
the same physical locations. The use of a key permits linking of two different 
data structures whose only common elements are record length and the unique 
identifier field of which, the key may be a sub- field. 

No te 7; 

A block within a record may be set aside for optionally present fields. All 
optional (repetitive) fields are split fields, the first portion of which is a key 
identifying the field. The same key must appear in byte 18 of the field ID 
for the field to be located. This key (byte 18) may serve double duty as a 
message number. 

Note 8; 

If describing a text field, the number of bits is interpreted as the number of 
bytes or characters in the field. Text data must start in the record at a bit 
number which is a multiple of 8 (on a byte boundary) from the start of the record. 

Note 9; 

The data in a field may go through a code conversion prior to use by the data 
base management routines. When a code conversion is used, (Non- zero) 
the format information in the field definition applies to the converted data. The 
data type in the field definition must be consistent with the data in the field. 
Where the code conversion implies a data type change, the new data type is 
returned by the field extraction routine (EXTFLD). The following code conver- 
sions are assigned: 

Code Number Conversion 

0 No Conversion 
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1 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


12 

13-15 


A n to Integer - where n= no. of bits in 
field/8 no. of bits must be a multiple 
of 8 and each character must be num- 
eric. 

In to An Where n=no. of significant places 
in the field definition Max=4*NBW. 

In to An Skewed (used to build ASCII 
add 32 to I character from 6 bits) 

Integer to Real 

Integer to Real and divide by 1000 
Integer to real and divide by 100 
Integer to real and divide by 10 
Integer multiply by 10^ 

Integer multiply by 10 5 
Integer multiply by 10^ 

MERITS Roll Number Conversion: 

ITEMP = INT/1G 

IOUT = ITEMP * 100 + INT - ITEMP * 16 
Date: IDATA(l) = I DATA (1) * 10000 + 

I DATA (2) * 100 + IDATA(3) 

Unused 


Note 10: 

H. Flag - Hierarchy flag - indicates that data base is sorted in ascending order 
on this field and will not be indexed on this field. 
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IOARAY 


COMMON/lOARAY/lBUF(150) 

IBUF (1-132) - Input/Output Buffers 


(133) 

INDV 

Input device no. 

(134) 

IJDV 

Terminal device no. 

(135) 

IODV 

Output device no. 

(136) 

LENI 

Line width of input device 

(137) 

LEN2 

Line width of terminal 

(138) 

LEN3 

Line width of output device 

(139) 

NLPP 

No. of lines per output page 

(140) 

IDU(3) 

User ID code 

(143) 

ITIM 

Time 

(144) 

I UNIT 

TEK=1, TTY=0 

(145) 

IMOD 

Mode IMMEDIATE = 1 DELAYE 

(146) 

IBAUD 

Baud rate for Tektronix plot routines 

(147) 

I EXT 

Data base extension ID 

(148) 

NFIL 

No. of files in I/O subroutines 

(149) 

IZDV 

Zero device no. 

(150) 

NBW 

No. of bytes/word 
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MESNDX 


COMMON/MESNDX/MINX (300) 

MINX (1-200) - Pointers to 1st word of field titles 
MINX (201-300) - Pointers to 1st word of user messages 

FILE - IDEF (6-10) - User message list 1 word/record 

For each message: 

Word 1 No. of bytes in message 

2 Message no. 

3-N Message 

N=No. of bytes in message/NBW 
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REUSE 


COMMON/RE USE/IRLEN, IREUSE (10000) 

IRLEN - Length of reuse area (10000) 

IREUSE (1-10000) - Reusable (scratch) core area 


COMMUNICATIONS TABLE 


COMMON/ COMTAB/ICON (100) 

ICON (1) - Unused 

ICON (2) - First quad of subroutine call 

ICON (3) - Last quad of subroutine call 

ICON (4) - Symbol Table entry for EXECUTE (subroutine) 

ICON (5) - Insert Flag 

ICON (6-99) - Unused 

ICON (100) - Number of candidates in set 
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ACTIVE FILE STACK 


COMMCN/FILSTK/IPRIOR (10), MFILES (10,10) 

This common retains information on any currently active disc files. 

IPRIOR (1-10) - Pointers to file blocks (MFILES) in order of greatest priority, such 
that the pointer to the file currently being used is in IPRIOR (1). 

MFILES (1-3, N) - File name 

(4,N) - No. of records in file 

(5,N) - No. of bytes/record 

(6,N) - Pointer to entry in file 

(7,N) - Logical unit number of file 

(8,N) - File status flag 

0 = opened for read operation 

1 - opened for write operation 
3 - error in I/O operation 

(9, N) - Buffered write pointer (1-N) 

Pointer to buffer entry in common OUTBUF 
(10, N) - Record number for start of buffer data. 
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OUTBUF 


COMMON/OUTBUF/NWOUT, JOUT (880) 

NWOUT - Number of words per OUTPUT Buffer. 

= 220 for Datacraft. 

JOUT - OUTPUT buffer of segments with 'NWOUT 1 words per segment 

This common will vary for different host machines. The total buffer size is the 
product of the number of active files and the number of words per buffer. 
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SETCNT 


COMMON/SETCNT/ISET (43), ICAND (3) 


MAXIMUM NO. OF DEFINED SETS = 48 

ISET (1-48) = No. of set members for sets 1-48 
ICAND (1) = Data base record no. of candidate 

ICAND (2-3) - Bits 1-48 correspond to sets 1-48, For each set that the candidate 
is a member, the corresponding bit is set. 

ICAND (1-3) - Is input from the candidate file IDEF(2G-30) 

The no. of candidates in the file is also stored in COMTAB/ICON (100) 
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MINIS SYSTEM INSTALLATION 


MINIS systems that now exist on the Datacraft 6024 or NOVA minicomputers 
can be conveniently installed beginning with either source programs or binary 
files provided on magnetic tape. The general method of installation is to form 
relocatable binary files with the FORTRAN compiler or assembler, genei’ate 
a user library with the host computer's library editor and produce executable 
modules with predefined relocatable loader commands. MINIS data files 
necessary for file control, index generation, field definition, user messages, 
and system messages are also provided on the system tape. 

On the Datacraft a system tape is created with files corresponding to each 
element named in the LOAD command listed in Table 3-1. In addition, a file 
containing user library routines and a file for MINIS system messages are 
included. These files can be loaded into a file managed unit as "SRC" files, 
and all software files can be compiled by the FORTRAN compiler except for 
IBEXT, IBDEP, F$DDFU, and BISORT which are assembly language routines. 

After all "BIN" files are produced, an overaly load is done with the load 
statement listed in Table 3-1. A BATCH command file can be generated in a 
source file to make the device assignments listed in Table 3-1 with all FM 
assignments set to the desired file managed unit. Then, to execute the MINIS 
system, the user can first make device assignments by simply entering a 
BATCH command and typing EXEC MINIS. At this point, the procedures 
described elsewhere in the manual for defining a database, defining fields, 
generating indexes and saving user messages can be carried out. 

On the NOVA, the MINIS system is designed to run under the Real-time 
Disk Operating System (RDOS) with files located in two directories. After 
initializing the two directories, named DP2 and DP3, two tape files can be 
read in using the CLI commands LOAD MTO:0 and LOAD MTO:l. All source 
files to be compiled or assembled are named "XXXXXX. OM" where "XXXXXX" 

RECEDING PAGE BLANK NOT FILMED 
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is a six-character routine name and OM" is a file extension used to separate 
MINIS software from any other source files that may exist in the directory. 

Several command files, identified by the . CM extension, must be executed 
indirectly to produce all of the save files necessary for MINIS operation. The 
names and contents of these files are listed in Tables 3-2 through 3-11. 

All data files were automatically loaded with the LOAD commands described 
above. These files reside in directory DP2 and may be identified by listing all 
ten character file names with no extension. All data files may be examined and 
modified bj? the CLI’s octal edit routine OEDIT. 

Since device assignments are made under program control, all the user needs 
to do to initiate execution is type MINIS. Other sections of this manual describe 
starting up a database, saving user messages, and accessing the database. 
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$A 4, DUM, 7, DUM, 10, FM2, 11, FM2, 12, FM2, 13, FM2, 5, FM2, 6, LP, 14, FM2 

$A 15, FM2 

$LOAD 

♦LOCAL MINIS, DBLOAD, REVSCN, VARINX, VARCHK, EXQUAD, FLDFIN, MESMAN, 
FMATS, WRTDAT, INDEX, SUMSET, LEXCAL, PARSE, SYNTHE, POINT, NAMLST, 
INSERT, WRITE, INITAL, PROCSS, SRTMER 
$KB 


Table 3-1 


3-37 


000001. 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

000010 

000011 

000012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 


1/21/77 


NOUA 2/10 

FILENAME i HP 2 t GLLIST . CM 


DELETE/V DLL I ST ♦ LB 
RLIiiR DLL I ST *LS/L MINIS 
I.' CAL SUB SUMSET GET COM 
CDBLOAD " 


*•% 


QUITTT RESETT t 


INTERP EXSTMT EXSEDD3 


» LEXCAL GETSMB GETNXT 
r PARS EE PARVOC 
? SYNTTIE ~ 

9 STBDMP DMPSTK " 

9 INSERT INSELS ~ 

9 VAR I NX SCINDX 
9 VARCHK UARVAL 
rDPSJOBUIDD DP3JSTNMM0 
9 RE VS ON R9SC AN 


f SUBSET 
CCRREWL 
9 CHKSYM 
9 SYNTH! 
9 R BUI... IN 
9 BNSRCH 
MESOUT 


EXCANS 
STNAME 
CHKFLB 
CHKTYP 
RDF LIN 
RPIELD 
OLDMAN* 


EXQUAD 
I BLANK 
SCANT® 
BUILDD 
UNPKER 
EXFLDD 


exoprn:i 
MESHHH 
C UREAL 

SC IF ID 
EXTFLD3 


COREEL 

MAKSEN 


LINMES 

XFERRR 


DP 3 1 B I SORT 


LIN INN 
KUMPAR 


-B FORT* LB 


/n 

/•k 


Table 3-2 


page (S 
UF POOR QUALITY 
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NOVA 2/10 


1/21/77 


filename: dp2:indexx,cm 


000001 

000002 

000003 

000004 

000005 

000004 

000007 


DELETE/V INDEXX.LS 

RLDR INDEXX.LS/L DP3JINDEXX/S ~ 

JNDXXX INDEXX GENDEX GEN ATE ~ 


g^ALMGEiS 

gBftOOR QUALITY 


CWRTDEF MESHHH 


DP3JS0RTIX 0P3t BISORT DP 3 tMERGGG " 


» UNPKER r n 

PACKER EXFLBD EXTFLD3 

OLDMAN* LB FORT ♦ LB 


Table 3-3 
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1/2J./77 


NOVA 2/1.0 

F I LENAME J DP 2 J FL-DFIN ♦ CM 

000001 RL.DR/M/E FLDFNN GETCOM FLDFIN FINFLD ME OMAN MESOUT 
OLDMAN. LB FORT. LB 


Table 3-4 
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NOVA 2/10 

1/21/77 FILENAME.-: DP2J OUTPUT* CM 


000001 DELETE/V OUTPUT ♦ LS 

000002 ftLDR OUTPUT* LS/L DP3J0UTPTT/S OUTFIT OUTPUT EXQUAD EXOPRN ME80UT 
000003 CFMATSS NORM MM"' 

000004 v REVE5CN RVSCAN" 

OOOOOS » WRTDAT EXTFLD3" 


Table 3-5 


PAGE IS 

° s P0 °R Quality 
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1 / 21/77 


r . vl , NOVA 2/10 

F 1L.ENAME ♦ DP2:WRrTEE.CM 


000001 RLHR WRITET WRIT EE REVSCN RVSCAN EXQUAD EXDPRN FXTFI ft 
OLDMAN. LB FORT. LB 


Table 3-6 
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NOMA 2/10 

1/21/77 FILENAME? DP2JNAMLST.CM 

000001 RLDR NAMLTT NAMLST MESMAN OLDMAN ♦ LB FORT ♦ LB 

Table 3-7 


DSflS GSNAL ® 

goomtmn* 
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NOMA 2/10 

1/21/77 FILENAME: DP3 * POINT! ♦CM 

000001 RJLDR CALLPT POl'NTT COORDN. USER Cl! BSERCI-! INCORD BLOK EM HIT ECS 


Table 3-8 


1/21/77 


NOVA 2/10 

FILENAME i HP 3 i CREATE . CM 


000001 DELETE/V CREATE. LS 
000002 RL,i:iR CREATE. LS/L " 

000003 CREATT CREATE CPRSTRTr INITAL QDFORM DELBLK SCANNN CVREAL ININT1V 
000004 PROCSS RDL.REC STELEM C6T0S8 C8T06d> CET088 R..TPTT COMPUT GETOPR - 

000005 SUMARY SIJMPRO PRC ENT CHRTRN SEARCH STOFLH P ACHAT r ~ 

000006 SORTER SORTIX MERGER FINFLB WRtfiFF HI SORT FI LEND 

000007 MRGERR WRTBUF FNNFLD EXTFLH3 " 

000008 MESOUT NEWFILWRT PFILWT REDWRT OLDMAN. LB FORT. LB 


Table 3-9 


OSIGINAU PAGE IS 
QB WOK QUAUIX 
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NUVfl il/lU 

1 / 21/77 FILENAME: DP3TM index* cm 

000001 DELETE/V MINDEX.LS 

000002 RLDR M INDEX «LS/L MINDXX MINBEX S0RT0T BISRT1 
000003 NEWFIl-WRT PFILWT REDWRT OLDMAN. LB FORT. LB 


Table 3-10 






NOVA 2/3.0 

1/21/77 FILENAME: DR3JMERGIT.CM 

000001 DELETE/ V MERGIT.LS 

000002 RLDR MERGIT.LS/L MERGXX MERG.TT BUND EX " 

000003 NEWFILWRT PFILUT RED WET FI LEND OLDMAN. LB FORT .LB 


l- 

%■ 


ii 




Table 3-11 


ORIGINAL PAGE IS 
OE POOR QUALITY! 





APPENDIX A 

EXAMPLES ON THREE DATA BASES 



EXAMPLES OF POINT AND AREA SEARCHES IN THE LANSAT DATA BASE 


U 

c 

u 

c 

u 

c 

u 

c 

u 

c 


AREA 

ENTER LOWER LATITUDE: 

26 

ENTER UPPER LATITUDE: 

28 55 

ENTER SMALLER LONGITUDE: 

80 

ENTER LARGER LONGITUDE: 

83 30 

SET NAMED AREASET HAS 6 MEMBERS 


U 

C 

U 

c 

u 

c 


POINT 

ENTER LATITUDE: 

28 53 

ENTER LONGITUDE: 

81 15 

SET NAMED POINTSET HAS 2 MEMBERS 


AREASET and POINTSET are system supplied set names that may be used just as 
user named sets. In the examples above, AREASET consists of all photos in an 
area from 26 degrees to 28 degrees 55 minutes north latitude and 80 degrees to 
83 degrees 30 minutes west longitude. 

POINTSET consists of all photographs at the point 28 degrees 53 minutes north 
latitude and 81 degrees 15 minutes west longitude. 
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EXAMPLES OF GENERATED REPORTS 


LANSAT oulput using system supplied formats and headers. ^ 


ENTER DATA BASE NAME (6 CHAR) 
MERITS 
>AREA 

ENTER LOVER LATITUDE: 

3 ON 

ENTER UPPER LATITUDE: 

3SM 

ENTER' SMALLER LONGITUDE: 

80V • 






<%? 


• ENT EH L AF: G ER LONGITUDE: 

82V 

SET NAMED AREAS ET 'HAS 4 MEMBERS. 

>0 UTPUT ( A R EA S ET , ALL ) 


5 

D 

H 

0 

L 

LON 

0 

' DATE C 

A 

M 

M 

M 

M 

A 

S 

H 

P. 

A 


p, 

L 

: r> ■ 

1 

2 

3 

4 

T 

L 

N 

3 



V 

D 

c 

P 

P 

P 

p 

N 


M 

N 

' * 


I 

C 

H 

0 

0 

0 

0 

U 


S 

U 



D 

0 

V 

s 

c; 

s 

S 

m: 



M 




v 

A 

N 

N 

V 

N 

1 

002 

1 6321 * 

27 

3 IN 3 5 

96V 54 

0 

7-25-72 10 

50 I 

1 

13 

0 

32 

1 

009 

1 5264 

124 

31N45- 

80V28 

2 

8- 1-72 30 

40 1 5 

24 

54. 

64 

1 14 

1 

002 

16314 

27 

33N00 

96V28 

0 

7-25-72 0 

1803 

1 58 

164 

170 

176 

1 

009 

1 5262 

124 

33M 1 1 

80V 2 

2 

8- 1-72 80 

40 1 5 

23 

53 

83 

1 13 


MFROLL 

MFPOSN 

R 

o 
* \ 

M 

* 

r i 

M 

R 

R 

R 

M 

•il 

M 

M 

U 



' E 

B 

r 

.E 

S 

1 

2 

o 

1 

2 

3 

4' 

5 



G 

V 

S 

Vi 

M 

C 

C 

0 

0 • 

£ 

0 

Q 

C 



I 

I 

I 

0 

0 

U 

u 

u 

U 

u 

u 

U 

U 



0 

D 

D 

D 

D 

A 

A 

A 

A 

A 

A 

A 

A 



N 



E 

% 

L 

L 

L 

L 

L 

L 

L 

L 

0 

0 

1 

3 

3 

1 

1 

3 


o 

• ■ V ■ 

0 

0 

0 

0 

0 

10001 

693' 

1 

2 

2 

1 

1 

2 

2 

2 

2 

2 

3 

4 

0 

10001 

C, 

1 

0 

2 

0 

1 

0 

0 

0 

p 

2 

4 

2 

0 

1000 1 

691 

1 

2 

2 

1 

1 

2 

2 

2 

p 

v« 

2 

2 

. 4 

0 
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LANSAT output using user supplied name list, headers, and format. 


OUTPUT (POINTSET, IDSMER, HEDMER, FORMER) 

' t ' | . ; ' . 

dBSRV'N-ID ORB ROLL/POS 1-4 LAT LONG CC MFR/POSN MODAYR 

1009-15273 124 4015/26,56,86* 116 28N53 81W17 20 10001/ 697 8 1 72 

2041-15165 570 8004/223,233*243,253 28N53 81W15 20 10003/ 447 3 4 75 


The following is an example of a session that might be held using the land use 
data base. 


ENTER DATA BASE i'JAME <6 CHAR) 

USER SLNDU3 E ' 

>P?LPCM=PPL2KS*U0USES*2 . 6 1 , . 

>cpo»;ded=pplpsm from 75 them \?,% ' 

SET MAMED CROWDED HAS 23 ME MEET 3 i .. . 

>0UT PUT < C R OVD ED > C ELL I D » C CUNT Y * PPL2HS* MOMS E S , PPLP5 M ) ‘ 

UTM CELL DESIGN COUNTY CODE PEOPLE PEP MM M3 EH OF PPLPSM 

ATOP. . • HOUSEHOLD. OCCUPIED H 

•• ' OU3SHOLOS. 


SER913S 



i ii 

3 . 1 B 

1 1 

33.6630 

•SSR9139 



1 1 1 

3.80 

1 l 

85 .8330 

SEP 92 3 3 



1 1 1 

3.10 

11 

38.6630 

i SER9536 



11! 

3 . 0 Pi 

• 1 1 

B 5 ... 8 0 0 O 

SSH9932 



1 1 1 

! 3.10 0 

12 

93 .,6330 

SER3412 



159 

| 3.10 

• 1 1 

88 .6600 

. SEES 9 1 2 



159 

3.10 

ie 

' S3 . 6000 

SER9116 



159 

2.90 

12 

90 ,4800 

SEP. 9 2 1 5 . 



159 

2.93 

1 1 

82 . 9400 

SER972I 



159 

2.90 

• 1 2 ' : 

90.4800 

SER9820 



159 

2.90 

10 

75 . 4030 

SER932 1 



159 

2 .90 

1 1 

82.9430 

SSR9322 



159 

. 2.90 

13 

98 .0230 

SER9924 



159 

2 .90 

11 

82.9400 

SEP. 6! 2 7 



1 65 

3 .1 0 

1 1 

83 .6603 

SEP. 623 7 



1 65- 

3.110 

10 

80 .i6000 

S ER 63 2 6 



1 65 

3.113 

1 1 

88.6603 

„ S SR 73 2 7 



1 69 

3 .1 3 

1 1 

88 .’660-0 

S'ER742 5 



1 69 

3.13 

1 0 

83.6030 

SER7725 



1 69 

3 . 13. 

13 

S3 . 6303 

SFQ3764 



1 75 

3.20 

12 

. 99 i 3403 

SFQ3565 



185 

3.13 

1 1 

83.6603 

SF03 668 



185 

3. -13 

1 1 

83. 6630 

SF042 64 



.185 

3.40 

9 

79.5 6355 

SER6013 

' 


■ 189 

3.23 

1 1 

91 .5233 

UTM CELL DESIGN 

C OUNTY 

CODE 

PEOPLE PER 

NUMBER OF 

PPLPSM 

AT OR. 

• 



HOUSEHOLD. 

OCCUPIED H 



• 


' ) ... 

' 

OUS EH OLD'S . 


SER65 1 7 



139 

r. I 

3.20 

10 

«... 

83 .2030 

SER7214 



189 

3.20 

10 

83.2000 

SER7712' 



139 

3 4 2 3 

12 

99.3403 

>P0I NT S -0 


• 


1 



>IF GVCUAL .ER. 

1 

THEN 

POINT 

S = P 0 1 NT S + 1 3 



>1 F G WOMAN . EO . 

1 

THEN 

POINT 

3 =? 0 I NS \T 5 + 15 



>1 F 1 S WOMAN .S3. 

2 

THEN 

POINT 

3 =PQ I NTS *23 



>IF ; SCHOOL .NE. 

1 

t tj-je 

M POINTS ■POINTS +5 

: 



5*1 F LAN FI L ..ED • ’S’ THEN POINTS “POINTS +1 v, El 

>IF SETXPTIC .ED. 'S’ THEN POINTS =POI NTS + 1$ 
>0UTP'JT ( CROWDED, CSLLID, C OUMTY, GWOUAL, G'-’O’tANv 


SE POINTS = n OI NTS -10 
ELSE POINTS =P0I N 3 V T $ - 1 
5 VO’JAU, SCHOOL, LANFIL, : 



>SSPTI C , POINTS : 


> 


A-4 


>) 


HTM CELL DE 

COUNTY 

6 

G 

S 

5 

L 

5 

POINTS 

SI GNAT OP. 

CODE . 

V 

V 

¥ 

C 

A 

c* 


ORIGINAL PA^ 

OB BOOK QUALITY 

0 . 

u 

A 

a 

u 

A 

. 0 
U 
A 

H 

0 

0 

M 

F 

I 

P 

T 

I 



i 

■ L 

W 

N 

• L 

L 

C • 


SSP9138 

i 1 1 

2 

2 

3 


M 

M 

- 20.0000 

SEP. 9 139 

1 1 1 

2 

2 

• 3 

i 

M 

M 

- 20.0000 

SEP9238 

1 1 1 

• 2 

2 

3i 

! ' • 

M 

M 

- 20.0000 

5ER9536 

1 1 1 

3 

’ 2 

3 


M 

■M 

- 20.0002 

SER9932 

i i i 

3 

2 

3 


M 

M 

-20.0.300 

SEP 8 A 1 2 

159 

3 

2 

6 ' 


B 

3 

- 20.0000 

SERB 9 1 2 

1^9 

3 

2 

6 


3 

3 

- 20.0000 

SER9116 

159 

3 

2 

3 


3 

B 

- 20.0000 

x SEP92 1 5 

159 

3 

2 • 

3 ; 


B 

B • 

- 20.0000 

. SSB9721 

159 

3 

2 

2 


13 

B 

0.0000 

SEP9820 

1 59 

3 

2 

2 


3 

3 _ 

0.3203 

SER982 1 

159 

3 

2 

o 

' 

3 

B 

• 0.0000 

SER9322 

159 

3 

o 

2 


M 

M ■ 

0.0000 

SER9924 

159 

3 

2 

2 


K 

M 

10.0000 

SEP6127 

1 65 

' 3 

2 

3 

.* ’ • ; 

M 

S 

'5.3020 

SEP 62 3 7 

1 6:5 ■ 

3 

3 

'3 


M 

M 

-20 • 0000 * 

' . S SR 632 6 

1 65 

3 

2 

,3 


B 

3 

- 20.0200 

SEP7327 

1 69 

3 

2 

•3 


3 

b : I 

-20.0030 

SSP7425 

• 169 

;]■ 3 

2 

6 


- 3 ' 

3 

- 20.0020 

SER7725 

1 69 

3 

2 

3 

p 

M 

M 

- 20.0002 

SF03764 

• . 175 

1 

2 

3 


S 

M 

• 10.0020 

S.FQ3 5 65 

185 

2 

1 

3 


. 5 

w 

. 15.0000 

SFQ3 663 

• 185 

2 

2 

3 


S ' 

S 

25*0300 

SF04264 

135 

1 

g 

3 

• 

s 

M 

10.0000 

SEP 60 13 

139 

3 

1 

6 


3 

B 

-5.0200 

UTM CELL DE 

COUNTY 

■ G 

G 

S 

s 

L 

S ■ < ■ 

POINTS 

SI GNAT OP. 

CODE. 

¥ 

V 

¥ 

C 

A i 

TT 

. . K. - 




, Q 

Q 

Q 

H ' 

N 

P 




S N 

U 

U 

0 

F 

T 




' A 

A 

A 

0 

I 

I ■ 

, 



L 

N 

' N 

L 

L 

C 


• SEP 65 1 7 

189 

3 

1 

6 - 


' 3 

•3 

-5.3030 

. SEP 72 1 4 

189 

3 

p 

6 


3 

B • 

-20 . 0300 

• 5EP77I2 

189 

3 

2 

6 


B 

. D 

- 20.0000 


> 


>SUMPT 3 =S UMS ET (CROWDED# POINTS) 
SUMPTS = -265.2003 

>3 U MI IOU =SUMSET (CROWDED# HO U S E 3 > 
SUMHOiJ ' = 3 0 6.000 0 


>SET 1 89 =CPO¥DED 

| .AND 

. C' 

DUI'J TV 

• 

EO. 

'189 













’ l 


SET NAMED SET 189 

HAS 



’ 4 ; 

MEMBERS 














>OUTPUTCSS‘ 

T 189# 

ALL) 





-> 














/ 


Z tJTM CEL 

H 

p 

C 

D 

s 

C 

c 

S 

p 

B 

S’ 

0 

L 

L 

S 

D 

. p . 

A 

S 

L 
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p 

0 L DESIG 

0 

• p 

0 

E 

M 
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E 

0 

i 
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¥ 

A 

A 

L 

E 

E 

A 


A 

0 

0 

N NAT OR i 

TJ 

L 

. u 

V 

5 

N 

N 

I 

y 

S 

H 

N 

1 N 

N 

0 

p 

P 

S 

P 

M 

P 

D 

E 

S 

2 

M 

D 

A 

G 

S 

, L 

E 

I 

0 

r^> • 

U 

rj 

P 

T 

M 

H 

T 

F 

S 

F 

M 


H 

7.p:*T. 

I 



U 


P 

n‘ 

0 

P 

>i 

S 

E 

H 

E 

0 

I 

I 

0 

I 

0 

s 

S 

V 

c 



s 




L 


1 

2 





C 

L 

L 

L 

16 SEP 601 3 

1 1 

3.2 3 

189 

4 

5 

4 

27 

¥L 

5 

K 


12 

2 1 

2 1 

A 

D 

T 

D 

3 

3 

G 

F 

16 SEP 65 i 7 

1 3 

3.23 

1 89 

4 

5 

4 

27 

TH 

5 

K 


4 4 

2 1 

3 1 

n 

u 


M 

G 

3 

3 

p 

n 

16 SEP 7 2 1 4 

I 0 

3.22 

1 89 

4 

5 

4 

2 7 

TH 

5 

K 


1 0 

63 

95 

c 

S 

M 

C 

3 

3 

p 

p 

16 SEP 7 7 1 2 

1 2 

3.23 

139 

/! 

5 

4 

2 7 

TH 

3 



13 

2 1 

33 

c 

s 

S 

G 

3 

B 

p 

p 
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ci c: 


i » 


6 r> 

Q 0 0. 

k U »J 

A A A 

L M N 

3 16 

3 1 s6 

6 

6 . 


jr 

5 

C 

c 

A 

E 

w 

N • 

G 

n k 

E 

M 

U 

T 

5 

L 

V 

E 

E, 

I 

k 

C 

I ■ 

A 

E 

• 0 A 

A 

0 

R 

R 

L 

D 

0 

N 

M 

0 

s 

T 

0 

A R 

3 

n 

n 

iJ 

A 

0 

1 

it 

u 

S ' 

• p 

■ G 

1 

M 

c 

D 3 

T 

T 

z 

Z 

P 

0. 

A 

A 

E 

n 

E 

T 


A 

°! T 

I 

H 

0 

0 

T? 

0 

L 

T 

*, T 

7 

0 

. E 

L 

P. 


u 

N ' 

w 

W 

X 


F* 

0 

T 

F . 

0 

0 

QA 

D 

F 

60 

13 

0 

F 

0 

T 

F 

. 0 

0 

0 L 

D 

F 

65 

1 7 

fi 

F 

0 

T 

F 

C* 

!»•* 

0 

CL 

D 

T 

72 

14 

/ . 0 

F 

0 

T 

F 

0 

0 

DC 

D 

T 

77 

12 

0 


In tliis session PPLPSM was first defined as the product of the two fields PPL2HS 
and HOUSES and the constant 2. G. Any time PPLPSM is referred to in later com- 
mands, the number of people per square mile in a cell will be calculated by multi- 
plying the number of people per household times the number of households in a 
square meter cell times 2.6. 


Next a set is formed consisting of all cells that have a population per square mile 
between 75 and 100. This set, name CROWDED by the user, is then displayed. 

The statement POINTS = 0 begins a series of tests that will assign a weight factor 
to each cell in set CROWDED. In these tests points are added or subtracted for 
presence or absence of selected attributes. 

Now, CROWDED is displayed with a different set of fields and the points that each 
cell accrued. 

Following this output, the user has invoked the SUMSET subroutine to get a total 
ofj all the POINTS in set CROWDED, a count of the number of households in the 
same set. 

Finally, a subset named SET189 which consists of all cells in CROWDED that 
also are located in county number 189. This set is output using the ALL desig- 
nator so that all fields defined for the data base will be displayed. 
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The following is an example of a session that might be held using the CENSUS 
data base. 


ENTER DATA 3ASE NAME C 6. CHAR) 

oter^snsus • ' ‘ • 

• >CTY 2 1 “COUNTY .EG. 21 

SET NAMED CTY 2 1 * HAS 14 MEMBERS 

‘ >?0 1 N?S,= 0 • 

>IF PNOIJV .LT. 20 . THEN ? 0 1 NTS “PO 1 NTS + 1 
>IF "PNONV .LT. 20 \ .. THEN POINTS =P 0 1 NT 3 +2 
. >IE 1 PFSMAL .GT. 50 . THEN PO I NTS = P 0 1 NTS +5 ELSE POI NTS“?OINTS -5 
> 1 F. % F 1 5 2 4 9 .GT. 40 . THEN PO I NTS =P 0 1 NS NTS +3 
• >IF FAVINC .GT. 10000 THEN POI NTS “POINTS +4 

- . >1 Jf NFAVIN .GT. 1000 0 THEN PO I NTS “POINTS + 6 ' ‘ • 

>1 F %'JNEMP .LT. 5 . THEN PO I NTS =?Q I NTS +7 

>IF AVSCHNWGSCH . GT . 8 THEN PO I NT 3 =P 0 ITXNTS +8 ELSE PO I NTS =P 0 1 NTS J 

>-5 

' . >IF JTJNITS .GT. 10 . THEN PO I NTS “POINTS -5 
>IF % NOPL’JM .GT. 2 . THEM POINTS “P 0 1 NT 3*10 
>CNGTAX=TAXR 73 -TAXR 74 


>IF CNGTAX .LT. 0 THEN POI NTS “PO 1 NTS - t 0 ELSE POINTS “POINTS* 1 0\\\ ! 

>+10 V. 1 , . v , ' ' ! 

>0!ITPUT ( CTY2 1 * C OUNTY * ENUDI 3 » PMONV* ftPNONy* %PFEMAL* % FI 5249* FAVINC* : 
>M FAVI N* %UNEMP* AVGSCH* TUN! T3 * 8MOPLUM* CNGT AX* POI NTS > 


n 

</ 


P 

% 

7, 

% 

0 

N 

N 

P 

P 

F 

u 

U 

0 

M 

F 

1 

• N 

D 

* N 

Q 

E 

5 

T 

I 

W 

N 

M' 

•2 

Y 

S 


w 

A 

\ 4 

2 1 

0004 

0 

0.0 

4 7.1 

8.9 

21 

0005 .. 

1 66 

24.3 

5 1 .5 

3.1 

\2 1 

0006 

S3 

9.9 

5 0.-4 

9.9 

2 1 

0007 

0 

0.0 

43.5 

4.7 

2 1 

0008 

0 

. 0.0 

52 . 6 

7.3 

2 1 

0009 

0 

0.0 

4 7.7 

4 . 6 

21 

0.310 

1 6 

1*1 

50 . 2 

1 1 . 5 

21 

001 1 

' 0 

0.0' 

60.5 

8 . 6 

2 1 

0012 • 

36 

12.2 

50.0 

3.7 

21 

•3013 

21 

3.0 

44 . 7 

12 . 1 

21 

0014 

111 

7.7 

50.8 

8.4 

2 1 

0001 

0 

0.0 

5 0.2 

3.2 

2 1 

0002 

69 

. 5.4 

45 . 6 

3.9 

2 I 

3003 

63 

6. 1 

54.6 

.9 
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F N % A % 

A F U • V u ; 

■ V A N ' G \ N 

I « .V E . S I, 

, N I M C T 

G N PH 5 U 


32 0 

0 . 

8.0 

9 

12.8 

9.7 

658 

387 

0.0 

9 

• 12 .6 

13.5 

959 

.755 

0.0 

. 9 

2.0 

1.6 

705 

0 - 

3 . 1 

9 

'• 3.0 

1 7.2 

801 

0 

2.0 

9 

0.0 

15.3 

619 

0 

2.4 

,9 

0.0 . 

28.5 

8 68 

0 

3.6 

9 

1 .5 

- 7.0 

473 

0 

0.0 

9 

6.3 

3 5.0 

769 

418 

0.0 

10 

0.0 

14.6 

774 

0 . 

6.4 

8 

0.0 

34.5 

750 

499 

. 8 - 

'9 

0.0 

25 . 7 

7 62 

0 

2.3 

9 

1 .6 

22 . 6 

782 

190 

1 .0 

9 

1 .8 

3 4.3 

591 

1080 

. 2.6 

3 

2 . 6 

39.2 


r- -u o 2 


CNGTAX 


POINTS 



-.4500 

-19.0000 

. 



-.4500 

-5,0030 




-.4500 

12; 0003 



* 

-.4500 

-7.0000 




-.4500 

3 . 0303 ; 




- .4500 

. -7.0000 j 




- .450-0 

• ' 3.0000 

t 

• 


-.4503 

3 .0000 




- .4500 

-3,0030 




-.4500 

-23.0000 




- • 4500 

2.3300 




-.4500 

3.00-03 




-.4500 

-8.3003 

♦ 



4 5 m 

-11.0300 



>^OIiJTG-0 




, ’ 

>1 F FA VI MC 

.GT. 353 TM 

EM PO I NTS =POI i\)TS +4 



>1 F NFAi/IN 

.GT. 353 TE 

\ H E N PO I M T S -PO I NTS \\\\\\\ =FQ I NTS + 6 


>OMTP'JT< CTY2 1 > COUNTY, ENUD I S , FAVI MC , NFAVIN, ?0 1 U T S > 


COUNTY 

ENUMERATION 

MEDIAN , TAMIL MEDIAN 

■JSGRQ 

POINTS 


DISTRICT 

Y INCOME FAMILY 

MS 

I MC o i 


21 

0004' 

82 0 

3 

3 . 3000 

2 1 

0005 

658 

337 

’ 3 i 0330 

2 1 

0036 

959 

755 

4 ; 0 3 3 0 

2 1 

0337 

705 

0 

3. r 030 3 

21 

0003 

331 

3 

0 « 0 0 ? 0 

2 1 

0309 

619 

0 

0,0000 

21 

' 0010 

3 68 

2 

4 . 0 3 3 0 

2 1 

00 1 1 

• 4 73 

0 

0.0000 

2 1 

00 1 2 

769 

418 

0.0000 

21 

0313 

7 74 

.3 | . ' 

0 . 000 0 

21 

0014 

753 

4 99 

P . 3000 

2 1 

0001 

7 62 

0 

. 0.3000 

2 1 

00-32 

732 

193 

0.0330 

2 1 

3003 

. 59 1 

138 0 

6. 0333 


>SOMNING =S!JMSET ( CTY2 UNFAVIN) 
SV'MNINC ~ 3329.00710 


>3 , JMIUC=SUMSET(CTY2 1 , FA V INC ) 

7 WING = 10336.0000 

> 3'.U‘1 FAK = S 1 1 MSS? ( ONTWTV2 1 » FAMLYS ) 

7JMFAM = 40 74 .0000 ; . 


MN FA! I = S !» MS ET ( C T Y2 1 v M F AML Y S ) 

TM-INFAM = 15 8.0003 

>CCTY2 1 =CTY2 1 .AMD. ENVOIS .EG. ’000i • 

GET NAMED* CCTY21 HAS 1 MEMBERS 

^A’-'GIMC *S f »MI NC/SVMFAM 
>C \MAVI NC =S VMNI NC /SMMMFAM 

>9Y?PVT< CCTY2 1 , S MM I MC, SUMFAM, C A VG I MC , SUMMING , S VMM FAM,CAV\ \ WAVING ) 

S Vi-11 NO SUMFAM’ CAVGIMO SUKNIMC SMMMFAM CHAPIN: 


10336.0000 4074.0000 


2.53.71 3329.0000 


158.0000 


21 .0696 
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First, set CTY21 is formed consisting of all cells that are in county number 21. 
Then, a point system similar to the one described in the land use session is defined. 
Points are added or subtracted according to factors such as non-white population, 
female population, income, unemployment figures, and education. One extra fea- 
ture utilized here is the definition of a variable named CNGTAX which will pick up 
the fields TAXR73 and TAXR74 and calculate the change in tax rate from 1973 to 
1974. Tests are then made on this variable instead of on field values. 

Later in the session SUMSET is used to calculate total incomes and family counts. 
Also, a subset named CCTY21 is formed consisting of cells that are in set CTY21 
and are also in enumeration district 1. 
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EXAMPLES OF DATA BASE FIELD DEFINITIONS 

Field definitions for the LANSAT data base 
FIELD FLD 1ST NO, OUTPUT PT CP IN ID FIELD TITLE 


NAME NO | BIT OF FORMAT TY 

8TS Pc 


DSL 

1 


10 

31 

1 


hhoms 

2 

10 

14 

51 

1 


grBnjm 

3 

34 

14 

11 

5 


LA I 

4 

96 

24 

1A 

5 

6 

LON 

5 

72 

24 

1A 

6 

6 

08 V I D 

6 


2 4 

1 I 

1 


Pate 

7 

- 

12 

IP 

6 

i3 

ClOOV 

8 

64 

8 

1 I 

2 


ARCHVAw 

9 

192 

14 

11 

5 


MlPQSN 

10 

207 

9 

11 

3 


H2Pe$N 

11 

144 

9 

1 I 

3 


M3PQSN 

12 

120 

9 

11 

3 


M 4 P 0 S N 

13 

24 

9 

11 

3 


HFRO-L 

14 

129 

15 

11 

5 


HF Pd SN 

15 

156 

12 

11 

4 


HE 3'1 ON 

16 

56 

2 

11 

1 


RBVIO 

17 

62 

2 

11 

1 


MSSI D 

18 

60 

2 

11 

1 


rrmode 

19 

58 

2 

11 

1 


MSMODE 

20 

56 

2 

11 

1 


B 1 0 U A L 

21 

168 

3 

11 

1 


R2-JU^L 

22 

171 

3 

1! 

1 


R3JU4L 

23 

174 

3 

11 

1 


d 1 Q U A L 

24 

177 

3 

11 

1 


M 2 ’) U A l 

25 

18 0; 

3 

11 

A 


113 OU al 

26 

183 

3 

11 

1 


M 4 Q U A L 

27 

186 

3 

11 

1 


M 5 QUAL 

28 

189 

3 

11 

1 


5 A T NUM 

29 

51 

3 

11 

i 




CM DX FL 
V N AG j 

DAYS SINCE LAUNCH 

13 H^URS MINUTES SECONDS 
OF? B I T NUMBER 

14 LATITUDE IN MINUTES 

15 LONGITUDE IN MINUTES 

observation id, 

12 DATE OF OBSERVATION, 
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159 

2 0 52 

10 

F 

5. 

1 


7 

^FA-R'iLND 

160 

2062 

10 

F 

5, 

1 


7 

-"ARMS 

161 

2072 

12 


11 

4 



A VS I?E 

162 

2084 

3.2 

F 

5. 

1 


7 

” ALP Ho 

163 

2096 

10 


1 1 

5 



'ALaCR 

164 

2106 

14 

F 

5. 

2 


6 

•' 0 M M I N 

165 

2120 

15 


11 

5 



COM0JT 

3.66 

2135 

1.5 


U 

5 



C0MN5T 

3.6 7 

215 0 

16 


11 

6 

5 


CN F Y 1 

168 

mm 

2166 

1 0 


11 

3 




RENTER OCCUPIED UNITS 
PERCENT RFNTER OCCUPIED UNITS 
UNITS LACKING PLUMBING FACILITIES 
PERCENT UNITS LACKING PLUMBING FACILITIES 

overcrowded units 

PERCENT OVERCROWDFD UNITS 
MEDIAN HOUSE VALUF 
MEDIAN CONTRACT RENT 

negro units lacking plumbing facilities 

PERCENT NEGRO UNITS LACKING PLUMBING FACIEI 

NEGRO OVERCROWDED UNITS 

PERCENT negro overcrowded UNITS 

NEGRO MEDIAN HOUSE VALUE 

NEGRO MEDIAN CONTRACT RENT 

MAJOR SOIL ASSOCIATIONS CAT, A 

PERCENT SOIL CATEGORY A 

MAJOR SOIL ASSOCIATIONS CaT, B 

PERCENT SOIL CATEGORY B 

MAJOR SOIL ASSOCIATIONS CAT, C 

PERCENT SOIL CATEGORY C 

PFRCENT OF LAND WITH FXCESSIVE SLOPE 

MAJOR LAND USES CAT, 1 

PERCENT LANDUSE CATEGORY i 

MAJOR LAND USF CAT, 2 

PERCENT LAND USE CATEGORY 2 

MAJOR LAND USE CAT, 3 

PERCENT LAND USE CATEGORY 3 

1970 COUNTY POPULATION 

i960 COUNTY POPULATION 

COUNTY POPULATION CHANGE SINCE I960 

PERCENT COUNTY POPULATION CHANGE SINCE 19 6 n 

NATURAL POPULATION CHANGES i j 

MIGRATION POPULATION CHANGES 

ESTIMATED 1973 COUNTY POPULATION 

ESTIMATED 1900 COUNTY POPULATION 

ESTIMATED 1990 COUNTY POPULATION 

COUNTY TOTAL CIVILIAN WORK FORCE 

COUNTY UNEMPLOYMENT 

PERCENT COUNTY UNEMPLOYMENT 

COUNTY MANUFACTURING EMPLOYMENT 

PFRCENT COUNTY MANUFACTURING EMPLOYMENT - 

county nonmanufacturing employment 
PERCENT county nonmanufacturing EMPLOYMENT • 
COUNTY SELF-EMPLOYED 
PERCENT COUNTY SELF-EMPLOYED 

county farm employment V 

percent county farm employment 
percent of TOTAL land in farm ACERAGE 
TOTAL number OF FARMS 
AVERAGE FARM SIZE IN ACRES 

TOTAL MARKET VALUE OF. AOR, . PRO, SOLP/1000U 
AVERAGE MARKET VALUE PER ACRE 
COUNTY COMMUTER POPULATION GAIN 

county commuter population LOSS 

COUNTY COMMUTER POPULATION NET GAIN OR LOS 
MAJOR COUNTY COMPOSING NET NO, 1 
A-14 _ _ .... 


! fil.0 

FLD 

1ST 

NO, 

OUTPUT 

nr 

CD 

IN 

ID FIELD TITLE 


i 

.i 

' M E 

NO, 

BIT 

OF 

FORMAT" 

TY 

CN 

nx 

FL 


i 

> 




BTS 




PE 

V N 


AG 


1 

1 


nnvi 

169 

2176 

IS 


3 I 

5 




number Commuting county i 


S' 

! 

i 

I Y 2 

170 

2191 

10 


11 

3 




major county composing met no, 

2 

T 

K 

>* 

iJTVZ 

171 

2201 

IS 


11 

5 




NUMBER COMMUTING COUNTY 2 


j 

3 


N r y 5 

17? 

2216 

10 


11 

3 




MAJOR COUNTY COMPOSING NbT NO,' 

3 

1 

i 

m3 

173 

2226 

IS 


11 

5 

! 



NUMBER COMMUTUNG COUNTY 3 


J 

■ i2 

) V'» 

17 4 

2241 

10 


11 

3 




MAJOR COUNTY COMPOSING NET NO, 

4 


A 

CMTY4 

173 

2251 

IS 


11 

5: 




NUMBER COMMUTING COUNTY 4 


1 


f-XR7 3 

176 

2266 

10 

F 

5, 

2 


6 


1973 county tax ra te 


t 

: >1 

SVAL 

177 

2276 

14 


IT 

5 




TOTAL ASSESSED COUNTY PROPERTY 

VALUE/1000 OuO 

1 

■tjj. " 

C I V A L 

178 

2290 

14 


11 

5 




ESTIMATED AClUAL COUNTY PROPERTY VALU£/lQOUOO 

I 

■J 


179 

230 4 

6 


11 

2 




COUNTY FLEMF NTARY AND SECONDARY 

SCHOOLS 

| 


H I 5H 

180 

2310 

6 


11 

2 




county high schools 



r 

„ A 

181 

2316 

16 


11 

5 




COUNTY AVERAGE DAILY ATTENDANCE 


i 

• .1 

X 3 P Jp 

182 

2332 

10 


11 

4 




COUNTY EXPENDITURES PFR PUPIL IN A.D.A. 

i 

' . 

JDIS 

183 

2342 

30 


1A 

5 

6 

3 


* enumeration district 


{ . 
I ? ' 

■ "si 

1 Y 

184 

237 2 

14 


11 

4 




CITY 


j 


CPI V 

185 

238 6 

10 


U 

3 




COUNTY CENSUS DIVISION 



■ ■ 

OJN 1 Y 

186 

2396 

10 


1 1 

3 




* COUNTY 



1 

XR 74 

187 

2406 

10 

F 

5. 

2 


6 


1974 COUNTY T a v RaTF 



1 

A 


7 

4 


ORIGINAL PAGE IS 
OE POOR QLAUTS 


HEADER, NAMELIST, AND FORMAT EXAMPLES 


The user defined header, namelist, and format for LANSAT may be listed as 
follows: 


>'-{2AD.2R ’ .. 

SETS?. OP 2 RAT I 0 1% TYP2, . (ADD, DSLt$T2, 


2XIT,'LI3T, MODIFY, OR R3PLAC2) 


2MT2R H2AD2R TITL2: 

M3DM.2R ‘ • 

HR DM 2?. 203 

( 3 1 H 03 3 P.7 ' K-ID 0R3 R0LL/P03 1 - A, 1 3X, ' LAT- L0M3 CC MFR ’ , 

■ ’ . , • r ■ 

•/POSE MOD AYR* ) ■ ' V' ’* 

2KTER 0P3P.ATI0I TY^S ♦ (ADD, D2L3T2, 2XIT, LIST, MODIFY, O'l R2PLAC2) 

^ * * ; , * 

> M AM £L I 5 T 

3ET2R 0P2RATI 0 1 TYPS . (ADD, DSLST2, 2XIT, LIST, -MODIFY, OR R2PLACD) 


2KT2R EAM2LIST TITL2? 

IDSM2R 

ID.3M2R • 23 'I ; : 

-SAT, DSL, HHMM3, 0R3M.UM, ARCH'DAL , M 1 P03M, M2P05M, M3P03M, MAPOSE, LAT, LOM, CO, MFR 

* * 

L,M r ?03K, DATS - . 

2MT2R 0P2RATI Or- TYP’D « (ADD, DDL DTD, DM IT, LIST, MODIFY, OR RSPLACD) ' 

w " 

> FORMAT - ’ / , ••• - • ‘ 

DETDR 0P2RAT 1 0 1- TYPD • (ADD, D2L2T2, DXIT, LIST, MODIFY, • OR R2PLAC2) 

2ET2R r OR I AT Tf TL2: i 

F0RM2R • •' • . • . . ./ ' ’ , ' : 

FOR 12.1 203 

( 1 X, I 1, 31 1 , ’ - ' 51 I , 21 > , ' /' , 13, 3 ( * , I 3) , 1 X, 5 A 1 , IX, 6A1 , 13, 16, ' / ’ I 4, 31 2) 

2ET2R 0P2RATI0E TY^2 . (ADD, D2L2T2, 2X1 T, LIST, MODIFY, OR -R2PLAC2) 


A- 16 


• ■ i 


An example of saved text in LANSAT is: 


> 5AV3TSXT ■ . V 

3KT2H 0 P2P. AT I 0 I- TYP3 * ( ADD/ D2LST3, 2XIT, LI 3T, MODI FY, OP H2PLAC2) 


2MT2H SAV2T2XT TITL2: 
LIST 


LI S T 


235 


PAGB is 
SOOR QUALITY 


< TH2 32 T TO 32 OUTPUT SHOULD 32 HAM 2D * SSTO'JT ' 


OUTPUT < 52T0UT, 1 D3M3H, H SUMS?., F0HM2H) \ - 

2LTSH 0 P2P AT 1 0 K TYP2 * (ADD, D2L2TS, 2XIT, LIST, MODIFY, OH H2PLAC2) 


Text may appear for explanatory purposes as in the land use data base 

THIS IS A ROUTINE THAT SEARCHES THE 
: DATA BASE FOR CELLS IN A GIVEN 

: COUNTY THAT HAVE A POPULATION PER 

: SQUARE MILE WITHIN A GIVEN RANGE. 

. TYPE THE FOLLOWING 

: CNUM= XXX (XXX IS THE COUNTY NUMBER) 

: LOW= YYY (YYY IS THE LOW POPULATION BOUND) 

: U,P=ZZZ (ZZZ IS THE HIGH POPULATION BOUND) 

: INSERT(POPSRCH) 

Note that this text refers to more saved text named POPSRCH which will form 
the required set and output it as follows: 

PPLPSM = PPL2HS*HOUSES*2. 59 
SETXXX = COUNTY .EQ. CNUM .AND. : 

(PPLPSM FROM LOW THRU UP) 

OUTPUT (SE TXXX, ALL) 



EXAMPLES OF CREATE INPUT INFORMATION 


Example of OPCARD file for LANSAT data base update 
DSL=21 

HHMM 3= 22 ' 

0!t3MUM = 24 
LAT-S12 
L0M=213 
CC = 2.1 1 . 

ARCHVAL=22> 

M1?0SM=227 
M2?03U=21S 
M3PQSI\’=2 14 
>14?0SK=23 , 

M?R0LL= 2 1 5 • 

M?P0SM=217 

R 2 i i o r:= 26 

23710=213 ' / ... ■ ■ • 

M3SID=29 • . ' 

23:1002=23 
MOM 003=27 

?.l 3UAL= 2 1 3 . 

22 0TJAL= 2 1 5 

R3TJAL=223 . .' 

M 1 QUAL= 22 1 
M2QVAL=222 

M3QUAL=2'23 V ' 

M4 3lJAL= 2 2 A ' . ' 

M30UAL= 22 5 - 

SAT =25 

SAT 23= 23-3 , 

I 1=31 + 9 13 ' 

12=21 + 1333 • 

13=12 +9 13 
14=3 

15=1 . CV . 21- 
16 = 2 * CV .11 
17=5 .CV. 12 ' 

13 = 6 .CV. 13 '• 

19 = 25 .33 . 14 * 5 
I 13=19*2 
111=113-1 

PM Ivj'M = 233+1 1 1 ’ . 



Example of INPUTD file for LANSAT data base update. 


13 

43 

3 

3 

14 

5 3 

3 

3 

9 

. 37 3. 

3 

0 

15 

3 1 

Z 

3 

3 • 

37 

3 

•3 

2 

532 

0 

3 

2 

126 

•3 

0 

o 

122 

3 

. 3 

2 

1 10 

3 

-3 

2 ' 

106 

3 

•3 

3 

96 

3 

3 

16 

2 '10 

3 

: 3 

16 

233 

■3 

0 

9 : 

346 

'3 

0 

1 5 

1221- 

0 

0 

9 

8 14 

3 

(51 

*•> 

12 

1235 

3 

0 

3 • 

633 

3 

3 

3 

5 15 

3 

3 

3 

'6 24 

0 

•3 

3 

6 32 

0 

0 

3 ■ 

5 40 

0 

0 

3 

643 

3 

3 

. 3 

5 55 

0 

•0 

• 3 

664 

0' 

0, 

14 

7 5 3 

3 

0 

9 

7 32 

3 

0 

3 

3 

0 

•3 

15 ' 

17 

3 

0 

2 

33 

•0 

3 

- 1 

• 3 

3 

0 


R- 




Js 


Example of INPUTR file for LANSAT data base update. 

ij ‘ ' DT:'1T0:1 ' 00204333016432 , 1 1 11 101 0000000000000030003030000 


A- 19 


Example of OPCARD file for a CENSUS data base update 


G0JN1 Y = 61 
CcOl V-E2 

6nJD!S = E3 ‘,CH, 5 
Gl TY=E4 

11 = 65. ♦ E6 

R 0 3 7 0 = 1 1 ♦ E7 

1 2 = E 3 + E9 
13 s El5 + E16 
RA3(Ks.I2 + 13 
^P*G04=F6 ,‘J, F5 
M = E10 ,S+, 5 
15 s El 7 ,S+. 5 

PA 35 14c 1 4 +15 
^PAG5l4=F8 ,</, F5 
RA25Up=E43 ,S+, 16 
16= £22 + E29 
M0 YRSs 16 + E36 
1 7 = E23 + E 30 
YRBl 7= I 7 + E37 
16=E24 + E31 
V R S 8 = I 8 +E38 
1 9= £25 + E32 
YR 3 911=19 + E39 

1 1 0 s E 2 6 + E33 
¥RS12=!10 + E40 

1 11 = = 27 + E 3 4 
YR3l3t-5sJll +E41 
U2 = £2R +E35 

YR 31 6 = H2 + E4 2 
1 13=0 
1 14 = 4 
Il5=3 
1 16=10 
1 1 7= 12 
1 1 Be 14 
1 1 9s 16 

" ! 2 0 ft ■ F 1 1 ,S2, 113 * 7 
121*F11 • S+ , 7 
A V 3 s C H = 1 2 0 f 121 




Appendix B includes summary documentation for the following programs: 


Name 

Page 

Name 

Page 

Name 

Page 

ASCII 

B-l 

GENDEX 

B-48 

PROCSS 

B-96 

BINDEX 

B-2 

GETNXT 

B-49 

QDFQRM 

B-97 

BISORT 

B-3 

GETOPR 

B-50 

RDFLIN 

B-100 

BNSRCH 

B-5 

GETSMB 

B-51 

RDULIN 

B-101 

BSERCH 

B-6 

HITES 

B-52 

READFL 

B-102 

BUILD 

B-7 

IBDEP 

B-53 

READLR 

B-103 

cAlsub 

B-8 

IBEXT 

B-54 

REDWRT 

B-104 

CET08 

B-9 

IB LANK 

B-55 

RESET 

B-10£ 

CHKFLD 

B-IO 

INCORD 

B-57 

RFIELD 

B-106 

CHKSYM 

B-ll 

INDEX 

B-58 

REVSCN 

B-107 

CHKTYP 

B-13 

ININT 

B-60 

RVSCAN 

B-108 

CHRTRN 

B-14 

INITAL 

B-61 

SCAN 

B-109 

CQMPUT 

B-15 

INSERT 

B-63 

SCANTB 

B-I12 

CONTRL 

B-16 

INTERP 

B-64 

SCI FID 

B-l 13 

COORD 

B-17 

ENTGER 

B-65 

SCINDX 

B-l 14 

COORDN 

B-I9 

IXTR 

B-66 

SEARCH 

B-115 

CREATE 

B-20 

KSCAN 

B-67 

SETPRI 

B-116 

CRREWL 

B-22 

KUMPAR 

B-68 

SORTIX 

B-117 

CVREAL 

B-23 

LACTUL 

B-142 

SRTMER 

B-118 

C6T08 

B-24 

LEXLAL 

B-69 

STELEM 

B-l 19 

C8T06 

B-25 

LININ 

B-70 

STNAME 

B-121 

DBLOAD 

B-26 

LINMES 

B-71 

STOFLD 

B-122 

DELBLK 

B-27 

LSERCH 

B-72 

SUBSET 

B-123 

EXCANS 

B-28 

MAKSEN 

B-72 

SUMARY 

B-124 

EXFLD 

B-29 

MERGER 

B-74 

SUMSET 

B-125 

EXOPRN 

B-30 

MESH 

B-76 

SUM2 

B-126 

EXQUAD j 

B-31 

MESMAN 

B-77 

SYNTH E 

B-127 

EXSETD 

B-32 

MESOUT 

B-79 

SYNTH1 

B-128 

EXSTMT 

B-34 

MINDEX 

B-80 

TERFNC 

B-129 

EX'TFLD 

B-35 

MOVOUT 

B-82 

TERMNL 

B-130 

EXVARD 

B-36 

NAMLST 

B-84 

UNPKER 

B-131 

FILDEL 

B-37 

NORM 

B-86 

VARCHK 

IB-132 

FILEND 

B-38 

OUTPUT 

B-87 

VARINX 

B-l3i4 

FILRED 

B-39 

PACDAT 

B-89 

VARVAL 

B-135 

FILWRT 

R -40 

PACKER 

B-90 

WRITE 

B-136 

FINFLD 

B-41 

PARSG 

B-9I 

WRITFL 

B-102 

FLDFIN 

B-42 

PARVOC 

B-92 

WRTBUF 

B-137 

FLTPT 

B-43 

POINT 

B-93 

WRTDAT 

B-138 

FMATS 

B-45 

PRCENT 

B-94 

WRTDEG 

B-139 

GENATE 

B-46 

PRNTER 

B-95 

XFER 

B-141 


B-ii 






MINIS PROGRAM SPECIFICATION 


6,0 

PROGRAM name- BISORT 


3.1 

PURPOSF 




• i 

PERFORM a 

BINARY SORT OF *N’ 

ITEMS, OF 

3.2 

1 DENT I F 1 CA 

T l ON 



date- 

2b MARCH, 1975 



REVISION- 




AUTHOR- 

R • L ♦ KEEFER (205)-B83-l778 


COMPUTER- 

DATACRAFT 6 024 




language- 

BASIC ASSEMBLER 



CORE SIZE- 

289 LOCATIONS 

(441 OCTAL) 

3,3 

description 



the- VALUED of the field FROM bit ’KEY!' TO BIT *KFY2» is called the 
KEY FIELD. THE MINIMUM KEY FIELD IS DETERMINED AND ALL KEYS ARE 
RIASF.D BY THAT AMOUNT, A BINARY SORT OF ALL ITEMS IS PERFORMED I- OR 

each bit mom key2 to keyi with the data alternately soried 

BETWEEN TH C EQUAL SIZE BUFFERS, *BUFl» AMD 8UF2', WHEN SORTING IS 

complete, the minimum key field is added to each key, the sorted 

array IS RETURNED IN • R UF 1 * AND 'RUF?' IS DESTROYED, EXECUTION 
TIME IS ROUGHLY PROPORTIONAL TO N*(K+2>, WHERE 2**K IS UREA I ER 

than the range of key fields but lfss than twice the range of key 

FIELDS. (EG. FOR RANGE OF 513, K s 10) 


3,4 USAGE 

CALLING SEQUENCE: 

CALL BIS0RT(KEY1,KFY?,MITEM,NwDS,BUF1,RUF2) 

KEYl = FIRST R IT POSITION OF SORT KFY, 

KEY2 = LAST BIT POSITION OF SORT KEY, 

D.LF, ( K 2 - K 1 ) . L E . 2 2 HITS NUMdFRFD T ROM 0 TO 
(i\WDS*?A-l) LEFT TO RIGHT IN EACH ITEM. 
SORT KEYS may cross WORD BOUNDARIES, 

NITEM = : NUMBER OF ITEMS TO SORT., L 


B 


3 






MINIS PROGRAM SPECIFICATION 


4.0 PROGRAM name- BNSRCH 

4.1 PURPOSF 

T 0 PERFORM a BINARY SEARCH FOR A FIELD VALUE IN AN OLDMAN DATA 
BASF, 

4.2 IDENTIFICATION 

PATE- 1 AUGUST 1975 

REVISION- 

AUTHOR- d , R , Sanders 

COMPUTER- DATACRAFT A024 

language- fortran iv 

CORE SIZE- 152 LOCATIONS <230 OCTAL) 


4.3 description 

RNSRCH COH»aRES THE REQUESTED FIELD VaLUP TO THOSE IN THE DaT A 
BASE VIA A BINARY SEARCH, THEN* ACCORDING TO WHETHER The VALUE 

sought is a lower or upper limit . the first or last record# 
RESPECTIVELY, containing the value is found. 

4 . 4 USAGE 

CALLING SEQUENCE: 

CALL e NS RC H ( I FI EL D . I P T R , V A L Ue I 

IF I ELD - FIELD NUMBER 
IPTR = (INPUT) 

-1 find lower limit 
*1 find UPPER LIMIT 
(OUTPUT) 

= pointer to d.b. Record (-1 if not found* 
value = FIELD value sought 


original; page is 
of, poor quality; 


MINIS PROGRAM SPECIFICATION 
►3,0 PRHG^aM NAME- BSb‘RCH 

5.1 PURPOSE 

SCAN LATITUDE-LONGITUDE INDEX FOR PHOTOS POSSIBLY WITHIN )H6 
SPECIFIED AREA, 

5.2 IDENTIFICATION 

date- 17 sfptembf.r. 1975 

REVISION- ADAPTED FROM MERITS SUfj OF SAME NAME, 

AUTHOR- R . L , KEEFER <?05) 883-1778 

COMPUTER- DATaCRaFT 6024/3 
LANGUAGE- FORTRAN IV 

CORE SUE- 2448 LOCATIONS (370 OCTAL > 

5.3 DESCRIPTION 

the index entries re therm the specified latitude limits a Re 
examined for longitudes within the specified Range, the ua.ia base 
pointers and the coordinates of all candidates within the band are 
Saved in common » rfuse • , * 

5.4 USAGE 

calling Sequence * 

CALL BSERCH ( NPOS # LAL » I. AH , L.OL , l.GH # L I N IJ f. K ) 

N 3 0S = NUMBER OF PHOIflS IN ARRAY, 

L A L » L A H , L 0 L , L 0 H = L A I I TUDE * LONG 1 1 UOF. LIMITS OF AREA, 
LINDEX = INDEX OF LATITUDES OF INDEX FILE, 



* a,, m r»*K x n»t f # & Kyi j«Ki>«swKVZ. ! 5H*a 


MINIS PROGRAM SPECIFICATION 

6.0 PROGRAM Name- build 

6.1 PURPOSE 

BUILD Aril EXECUTION STACK IN COMMON AREA QUaTBL, 

6.2 IDENTIFICATION 


PATE- 

• ! 

revision- 

author- 

CflMPOTER- 

LaNGOaGE- 


27 NOVEMBER 1974 

O.R. SANDERS 
OCR 6024 
FORTRAN IV 


CORE SI2E- 122 WORDS <172 OCTAL) 

6.3 description 

this routine converts op cooes used in the synt a x graph to op 

CODES DEFINED FOR THE QUAD TaBLE, IT THEN STflHFS THIS OP CODE 

along with two operand pointers in the ouatbl common area, 

6.4 USAGE 

calling sequence: 

call RUILD( !0P, JODI, IOD2* I£R) 


I OP 

= OPERAND 

FROM SYNTAX 

GRAPH 

I opi 

= OPERAND 

ONE 


I op? 

= operand 

TWO 


IER 

s ERROR FLAG: 0=GflODj 

1 =ERRPK 


B- 


7 


MINIS PROGRAM SPECIFICATION 

7.0 PROGRAM NAME- CALSUR 

7.1 PURPOSE 

EXECUTE Thp SUfjROUTj Mt REFERENCED BY THE UUaD TABLE POINTER, 

7.2 identification 

[ ■•••• 

DATEi 24 JANUARY 1975 

RE V I S I ON- 

authdr- d . r , Sanders 

COMPUTER- OCR 60?'l 

LANGUAGE- FORTRAN IV 

CORE SHE- 133 LOCATION S <205 OCTaU 


7.3 DESCRIPTION 

Thp first operand in the quad table at the referenced location 

PLUS ONE IS USED aS THE INDEX TU a PREDEFINED LIST OF SUBROUTINE 
CALLS. ALL ARGUMENTS ARe TRANSFERRED TO THE SURRflUTjNtS VIA 
. COM HON I, 

7.4 USAGE 

calling sequences 

CALL CALSUBI ISYM, IOi, I 02 t 

isym = symbol table entry for called subroutine 

TlH = ARGUMENTS TO HE TRANSFERRED 
102 TO THE ARGUMENT COMMON aREA. 

IrtRC(2) AND I A R G ( 3 ) RESPECTIVELY, 




• ! ; - ' 

MINIS PROGRAM SPECIFICATION 

3.0 PROGRAM N A M £ - CF-TO0 

8.1 PURPOSE 

CONVERT AN EBCDIC STRING TO AN ASCII STRING 

8.2 identification 

DATEf 2-11-76 

REVISION- 

AUTHOR- C.J.FARLESS (205) 803-1778 ORIGINAL' Pa^ 

OJS SOOR { n*' ® 

COMPUTER- DATACRAFT 6024/3 K QKAUTX 

language- fortran IV 

CORE SI2E- LOCATIONS (144 OCTAL) 


r 


Wt#**-*" 


8.3 DESCRIPTION 

ANY EBCDIC CHaRaCTFR CODE GREATER THAN 249 OR LESS THAN 64 IS 

converted to a question mark, codes 193-249 are converted to 

64-121. T^cn 63 IS SUBTRACTED From ALL CODES LEAVING Ct)DEs 1-58, 
The CORRES°ONDlNG HOST Machine CHARACTER is then EXTRACTED from 

the character array and stored in the string, 


8.4 USAGE ' 4 'i 

calling sequence* 1 

call CET08( ISTR.NCHAR. 1ST. IflUT) | ; j 

;«• } % 

1 STR s INPUT CHARACTER STRING, % 

N C H A R = MO, «F CHARACTERS TO CONVERT, jf 

1ST = FIRST CHARACTER IN STRING TO CONVERT, ;{ 

I OUT = OUTPUT CHARACTER STRING, !| ,t 





MINIS PROGRAM SPECIFICATION 

| . . • ' : • . • 

9.0 PROGRAM NAME- CMKFLD 

V.l PURPOSF 

search the common area* /fields/, for a fifed name, and make a 
symbol table entry for a field that is found, 

9,2 IDENTIFICATION r 

DATE- 29 JANUARY 1975 

REVISION- 

j , 

AUTHOR- D.R, SANDERS 

| '■ . 

COMPOTFR- OCR 6024 

language- fortran iv 

, CORE SlifE- 113 LOCATIONS ( 161 OCTAL) 


9.3 DESCRIPTION 

THE FIELD NaME COUNT IS T A KEN FROM CELL 14 OF COMMON AREA / F I L D b F / 

and that many entries of /fiflds/ m a y be searched for A m a tch with 
the character string in question, if a match is found- a flag is 

SET AND the FIELD NAME, TYPE CODE FUR A FIELD AND A POINTER TO THE 
FIELD DEFINITION a RRaY A RE ENTERED IN THE SYMBOL TaBLE, IF NO 

match is found* control is returned to 'chkSym' , 

9.4 USAGE . : ' • 

CALLING SEQUENCE? 


call cMkfld < i chary, nch.i entry, ier> 

ICHaRY = aR^AY CONTAINING CHARACTER string 

MCH = NUMBER OF CHARACTERS IN 'J CHARY ' 
IfcNTRY = NEGATIVE POINTER TO SYMBOL TABLE OR 

2fro if no match found, 

IER = ERROR FLAG 



MINIS PROGRAM SPECIFICATION 
10. 0 PROGRAM NAME- CHKSYM 


10.1 PURPOSE 

check thf currfnt symbol passed from subroutine lexcal to see if 

IT IS FITHFR IN THE SYMBOL OR RESERVED WORD LIST, IF NOT IN 
FITHER, IT IS ENTERED IN THE SYMBOL TABLE, 


10, ’i identification 

DATE- 11 NOVEMBER 1974 

revision- 

author- D.R. SANDERS i ( 205 >-883-1 778 



drigdjac PAGE b 

os poor quality. 


COMPUTER- OCR 6G?4 
LANGUAGE- FORTRAN 

CORE SI HE- 567 LOCATIONS <1067 OCTAL) 


10.3 DESCRIPTION 

subroutine CHKSYM RECEIVES MTYPE' from LEXCAL which indicates 
NUMERIC* ALPHABETIC or SPECIAL CHARACTER STRING, if numeric, the 
STRING is CONVERTED TO INTEGER or real, and A CONSTANT entry is 
ADDED TO THE SYMROL TABLE. IF ALPHABETIC OR SPFCIAL. THE STRING IS 
SEARCHED FOR FIRST IN THE SYMBOL TABLE AND THEN IN THE RESERVED 
WORD LIST. IF IT ?S IN THE RESERVED WORD LIST A POSITIVE INTEGER 
definition CODE IS STORED IN MENTRY' 

IF A SYMBOL APPEARS IN OR IS INSERTED INTO THE SYMBOL TA8LE. I HE 
NEGATIVE OP the POINTER TO that symbol is storfd in * i entry* and 
CONTROL IS PASSED RACK TO LEXCaL,, SPECIAL STRINGS .TRUE, AND 

.false, are treated as constants and assigned the values -i and o 
respectively, 

10.4 USAGE 

CALLING SEQUENCES 

CALL CHKSYM < IchaRY.NCH. I type. IFNTRy. IRfSWD. ifr> 


ICHARY= array CONTAINING CHARACTER STRING 
NCH = NUMBER OF CHARACTERS IN UCHARY* 

■ L..- .. .... 

I TYpc = TYPE OF CHARACTER STRING ( SEF GETSMB) 

I E N T p Y = NEGATIVE POINTER TO SYMBOL TABLE 

OR POSITIVE RESERVED WORD DEFINITION CODE, 

IRFSWD- RESERVED WORD LIST 



MINIS PROGRAM SPECIFICATION 
n.o program name- chktyp 

11.1 PURPOSE 

CHECK NEWLY CREATED SYMBOLS PCJR SYNTAX IN SYNTH6 « 

11.2 IDENTIFICATION 

HATE- 27 NOVEMBER 1974 

revision- 

author- o , r .Sanders 

I 

COMPUTER- DCR 6024 

LANGUAGE- FORTRAN IV 

CORE SIZE- 154 WORDS (232 OCTaL) 

11.3 description 

CHKTYP ACCEPTS ONE VaL FIELD FROM THF. SYNTAX GRaPH aND ON£ SYMBOL 

Table pointer from the sentence being synthesized, the. val field 
INDICATES the type OF variable or CONSTANT ALLOWABLE* IF The 
symbol type is greater than ioo a chfck is made to see if the 
symbol Was USED CORRECTLY, IF SO, ioo is subtracted from the type 
FIELD IN THE SYMrOL TarLE, IF NOT, aN ERROR FLAG IS SeT, 

11.4 USAGE 

CALLING SEQUENCE: 

CALL CHKTYPMVaL:, ISNSMu, MATCH) 

IVAL = YAL FIELD FROM SYNTAX GRAPH 
ISNSMRs SYMROL POINTER FROM SFNTENCE 
MATCH = FLAG* OsMATCH. 1 =MISMaTCH, 


MINIS PROGRAM SPECIFICATION 

12.0 PROGRAM NAM.E- CHKTRN 

12.1 PURPOSE 

TQ TRANSFER CHARACTERS IN The element ARRAY into common for 
TRANSFER I M T *=) The DATA BASE RECORD, 

12.2 IDENTIFICATION 

OATEi 1.2-2F-7S 

REVISION- 

AUTHOR- C.J. EARLESS (?y5) 803“1 778 

C0MPOTFR- PaTaCRaFT 60?4/3 
LANGUAGE- FORTRAN IV 

CORE STEF- 1 85 LOCATIONS (271 OCTAL) 

12.3 DESCRIPTION! 

The NIUMER "F CHARACTERS REQUESTED aRF TRANSFERRED FROM the element 
ARRAY into ReUSt FOR LaTeR TRANSFER INTO THE DA^A RaSE RECORD, 

12.4 USAGE 

CALLING SEQUENCE: 

CALL CHRTR \i< L0C . N CHAR . NEXT , I TYPE ) 

LOG = LOCATION OF CHARACTER IN ELEMENT ARRAY, 

,\|CHM = N U M R E R f»F CHARACTERS TO TRANSFER, 

NEXT = NEXT AVAILABLE nYTE AFTER TRANSFER, 

ITY^E = TYPF OF BYTE*. 0 = 8 RIT 6=6 H I T 

IF I T Y P W = 6 THEN NCHAR MUST NOT 3E GREATER THAN 
NBW*?/6 
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MINIS PROGRAM SPECIFICATION j L 

13.0 PROGRAM N A ME - COMPUT 

13.1 PURPOSE 

the quads NECESSARY to define one fiflo are executed and the 

RESULT IS STORED ON THE DATA BASF RECORD, 

13.2 IDENTIFICATION! 

DATEi 11-30-75 

REVISION- 

AUTHOR- C.J. FARLESS (205) 883-1778 

COMPUTER- DATaCRaFT 6024/3 
language- fortran rv 

CORE SIZE- 483 LOCATIONS <743 OCTAL) 

* - ,. . ... 

13.3 DESCRIPTION 

USING THF QUADS STOKED IN I UU:<5 » 5 00 > » THE QUADS FOR ONE FIELD ARE 
EXECUTED. BEFORE EXECUTING THF OPERATION REQUESTED IN IQU(1,I>, 

the operands in word 2 and word 3 ape obtained using » getopk ♦ t 
These operands are then used to perform thf operation, the result 

OF THE OPERATION is STORED IN WORDS 4 A ND 5. WHEN A 7 3 IS LOCATED 
THE FINAL RESULT IS STORED ON THE DATA BASE RECORD USInG * S f OFLD * , 

13.4 USAGE 

calling sequence: 
call comput (nquad ) 

NOUAD = 1ST QUAD TO EXECUTE IN A FIELD 




MINIS PROGRAM SPECIFICATION 


14.0 PROGRAM NAME- CONTRL 

14.1 PURPOSE 

CONTROL The COMMAND INPUT# SCANNER. ANALYZE* AND JNTEKPKFI'ER 
PROCESSES IN OLDMAN, 

14.2 IDENTIFICATION 

DATE- 15 NOVEMBER ,1974 

REVISION- 

AUTHOR- O.R, SANDERS < 205 >- 883-1778 

COMPOTE*- DC* 6 0 ? 4 / 3 

LANGUAGE- FORTRAN IV 

CORE SIZE- 1332 LOCATIONS <?464 OCTAL) 

14.3 DESCRIPTION 

this routine rfads the reserved uord list into i he scratch common 

AREA IF IT IS NOT ALREADY THERF AND INPUTS Tug SyNlAX GRAPH FOR 
DASAC. A LOOP BEGINS' By READING am INSTRUCTION AND ThFN calls are 
made to thf lexical scanner, parser, synthesizer and interpreter, 
any appropriate error messages aRe printed, and control is passed 
i : back to the top of the loop. 

I : 1 . 4.4 USAGE 

: : CALLING SEQUENCE: 

CALL COnTRL 

i i . . .• 

i»; -j : •' ■■■ : .. . • . ■" ; '■ ■ \ • 

\ '■ v : ' • .V‘ : : -• ; : ' ' V ■■ : , ' . ’ • 

ji 1 .. - - . .. . ... V '• .-. ". : ■ ■■ " •' ' • .. • J ' ■ • 

if jV.; ■' • :-V7V 7 ■ . 7' • \ _ !■ 7- 7 ' 77.' V 7 ’.■■■ V\ 7 : .- > ' ' ; • '.. . ' -7\ .7 Vi ,','..7 . 

S !iV" v - v : ;r -V:.-V i■Vv : V' ; v: : :Vi : ■i^■i:■ ;t. v VV' VB- i\^iVV7;;i\ ; ;,f ^ 

ii 
!• 
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PROGRAM NAME* 


PURPOSE 


To ACCEPT LATITUDE or longitude DEGREES and MINUTES from the user 
TERMINAL, 

IDENTIFICATION 


DATE- 


0 AUGUST 73 


REVISION- 29 AUGUST 1.973 FORMER MERITS PROGRAM 


AUTHOR- 


M.E.GILLIS 


COMPUTER- DC 6024 
LANGUAGE- FORTRAN 

CORE SIZE- 266 LOCATIONS (^2 OCTAL) 


DESCRIPT ION 

DEGREES. MINUTES, OBSERVATION ID,. AND 

several formats, type of data being 
calling program by use of argument ll 

5=R0LL/P0S), LATITUDE IS RETURNED aS 

degrees negative if if south latitude 
MINUS 90, west longitude is positive 

NEGATIVE FOR ERIS LOGIC, LONGITUDE IS 

Cannot be deciphered, ll is set to 3, 


ROLL/POSITION aRE ACCEPTED I 
INPUT IS selected by the 
(1 = LAT, 2 = L 0 N G » 4 =OB V I D , 

DEGREES AND MINUTES WITH 
AND WITH A RANGE OF PLUS OR 
TO USER# B u T RETURNED AS 
PLUS OR MINUS 180, IF FORMAT 
MINUTES are ALWAYS POSITIVE, 


North LATITUDE CAN BE SPECIFIED HY ♦ OR N# SOUTH by S OR -, IF 
NONE SPECIFIED# NORTH ASSUMED, WEST LONGITUDE IS SPECIFIED BY W OR 
♦ » EAST BY £ OR -, WEST ASSUMED IF NO N £ SPECIFIED, DECIMAL 
FRACTIONS CAN RE USED TO SPECIFY DFGPbFS , ALLOWED CHARACTERS ARE; 


NUMBERS# +# 

- # N » E » 

S 

. W# 

D# M. , 

# COMMA# / # 

AND SPACE, 

examples; 



r ~~ .- 




■■ 1 

LATITUDE 

33 30 

s 

33 

DEGREES, 

30 

MINUTES 

NORTH 


3 3 N 3 0 

S 

33 

degrees , 

30 

MINUTES 

NORTH 


33 30M 

F 

33 

degrfes. 

30 

MINUTES 

north 


33U30MN 

s 

33 

degrees , 

30 

MINUTES 

NORTH | 


♦33n3nM 

2 

33 

degrees . 

30 

M I N U T E S 

NORTH i 


33j . 5 

2 

33 

nEGREES, 

30 

MINUTES 

north 


33. 5N 

= 

33 

DEGREES, 

30 

MINUTES 

NORTH 


N33.30 

2 

33 

D E G R F b S 1 

30 

MINUTES 

north 

LONGITUDE 

12UW45 

2 

120 

DEGREES 

. 45 

MINUTES 

WFST 


120,70 

m 

120 

degrees 

. 45 

MINUTES 

west 


120 , 75W 


120 

DEGREES 

* 45 

MINUTES 

west 
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OKILtjinAE Page 
0F POOR QUALITY 


120D45MW S 120 DEGREES, 4t> MINUTES WEST 
E30M so DEGREES, 30 MINUTES EAST 

-30M = 0 OEGREFS, 30 MINUTES EAST 

30E = 30 DEGREES , 0 MINUTES EAST 


CALLING SEQUENCE: 

CALL; COORD< IN,LDEG,LMIN*LL*KP01NT> 

ldeg returns degrees (plus or minus) 

LMIN RETURNS minutes (PLUS) 

LL SPECIFIES LATITUDE OR LONGITUDE 

LL = 1 FOR LATITUDE 

LL = 2 FOR LONGITUDE 

LL * 4 FOR OBSERVATION ID 

TLL = 5 FUR FILM ROLL ./PflS I :T I ON 

LL RETURNED AS 3 IF AN ERROR WaS DETECTED DURING SCAN, 

KP0INT POINTS TO CHARACTER IN INPUT STRING WHICH DELIMITS 

observation in or film/ roll indicator, 

OBSERVATION' jD (OBVIP) OR MlORflf-ILM ROLL/P0S I T I ON ARE ENTERED AS 

follows: 

OBVID FORMAT is NUMBER-NUMBER 
ROLL FORMAT IS NUMBPR/NUMRfcR 

IF an illegal character is detected durjng scan* an error return 
NUMBER IS set in LL. 

The position of the first character after an Qrvid or roll number 

IS RETURNED' IN KPflINT SO THAT FURTHER SCAN CAN BE ACCOMPLISHED BY 

other programs , 

NORTH LATITUDE IS PLUS, WEST LONGITUDE IS ACCEPTED AS PLUS, 
RETURNED AS MINUS. 

COORD USES FUNCTION KSCAN FOR CHARACTER SCAN, 


B- 1.8 
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16.0 PROGRAM NAME- COORDM 

16.1 PURPOSE 

ACCENT COORDINATES OF point OH AREA and conduct search of index 

FILES for =>H 3TOS COVERING THE POINT OR ARtA, 


16.2 IDENTIFICATION 


0 A Tf F — 

REV I SlPN- 
AUThOR- 

comrdter- 

LANQUAGt- 
CORE S I ^ F- 


17 SFPFMBER* 1975 

R.L.KEPFFR (205) 683-1778 
DATaCRaFT 6024/3 
FORTRAN IV 

j 50 LOCATIONS (226 OCTAL) 


16.3 DESCRIPTION 


h 

I 

j! 

ij '• 


The coordinates of the POINT op aRFA ARE input Through A dialog 
with THfc USER. ThfSF COORDINATES aRE USFD AS ENTRIES TO T Ht INUEX 
files to o c termite a list of Candidates for membership in Tme stT, 
IF THE DFFI.VFD AREA IS A POINT, THE FILE IS CHECKED FOR ACTUAL 

mcmrers through a geographic correction routine, 


16.4 USAGE 

CALLING SEQUENCE: 

CALL COORDN(KFY.NPHOT,L INDEX ) 

KEY - USER SET FLAG Sfl to 0 OR 1 for point or area 
COVERAGE RESPECTIVELY. 

= NUMREP of photos FOUND, V 

L INDEX* ADDRESS of INDEX TO LaTLON I NDEX, 



ORIGINAL Pack 

°>****&5 
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MINIS PROGRAM SPECIFICATION 

PRFIG&AM NAME- CRREWL 
PURPOSE 

create the reserved word list to bp used by subroutine lbxcal, 

IDENTIFICATION 

DATE- 8 NOVEMBER 1974 

REVISicn- 

author- d,r, Sanders 

COMPUTER- OCR 6 0 ? 4 / 3 
L A Kl G H a C E - FORTRAN IV 

CORE SI*E- ?13 LOCATIONS <325 OCTAL) 

descript ION i : 

CRRPWL I MPT I fS FICHT c H a R A C T E R R E S R R V F- D WORnS AND a n INTEGER FROM 

logical, unit 5 using fmkm a t(ba 3 » i. 2 > after a four digit integer is 

READ INDICATING THF nUNBFk OF RESERVED WORDS , I HE CHARACTERS ARE 

packed into a table with nine bytes per fntry, 

USAGE 

calling Sequence i 

call crrewl< irpSwd, ifr > 

I HR = FRRrJR FLAG* 0 IF GOOD; 1 IF TOO MANY RES , WtJRUS 

I RES WO = RESERVED WORD LIST 

RESERVED WORD LIST IS STORED IN 
C 0 M |*i 0 N / R F U S E / STARTING WITH Trtfc SECOND WORD, 

A R9 IS STORED AFTER THE LAST ENTRY IN THfc NINTH BYTE. 



MINIS PROGRAM SPECIFICATION 



If 



i 


i 

i 


19.0 PROGRAM NAMt- CVHBAL 

19.1 PURPOSE 

CONVERT A CHARACTER STRING T0 A FLOATING POINT NUMBER 

19.2 IDENTIFICATION 

DATE- ft NOVEMBER 1974 

PEVISjflN- 

AUTHOR- 0 , R , SANDERS (20'5>-fta3-l778 

COMPUTER- OCR 6024/3 



LANGUAGE- FORTRAN IV 

CORE S!2E- 245 LOCATIONS (365 OCTAL) 


19.3 RESCRIPT ION | 

*N' CHARACTERS A R E EXA M INEn to BUILD an UNSIGNED real Value FROM ;■!: 

' I STR * , E FORMAT 0 !y REGULAR REAL NOTATION CAN BE CONVERTED, IF An 

ERROR IS ENCOUNTERED IN *ISTR» a FLOATING POINT REPRESENTATION OF * 

the number to the left of the point of infraction is returned in > ] 

•CVRFaL ' AND MER* is set, / | 1 

' ■' . ' ■ ' ' • ' ' ' '■ ' $ i 

19.4 USAGE I 

j 1 

CALLING SEOUENCE; $ 

. i 

•: . ■ ‘ 

REAL - CVPEALI ISTR,N, I , IER) ' 1 / 

, y * 

REAL = REAL RESULT , 1 

ISTR s array containing character string, il . ‘ 

N = NUMBER OF CHARACTERS in STRING, j 

I = first character position in string, ? 

IER = ERROR FLAG set AS FOLLOWS: 5 

0 FOR SUCCESSFUL CONVERSION, f ■ 

1 FOR INVALIO CHArtACTER IN STRING, 

V ; y . ... V : • : y" ? / ; 

•. : : .. i i: 


°RlGlb!AL PAm rc* 
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?U,0 PROGRAM N A M tr — CATOB 
20.1 PURPOSE 

CONVERT A 6 PIT character string TO AN 8 BIT CHARACTER STRING, 

?0.2 I BENT in CATION 

GATE- i 12-22-75 

RE VISION- 

AUTHOR- C. J, EARLESS (?.05> 883-177R 

COMPpTER- DATACRAFT 60P4/3 

LANGUAGE- FORTRAN IV 

CORE S I HE- 40 LOCATIONS (So OCTAL) 

?Ci .3 rescript JON 

each 6 bit bytf of the input string is converted to an a bit. byte 

RY ADDING 32 TO EACH BYTE, 


? a . 4 


USAGE 

CALLING SEQUENCE: 






CALL 


C 6 T 0 8 ( S T R I M Gi » N C H A R i J F I R A RP A Y ) 

STRING = 6 GIT CHARACTER INPUT STRING, 

NCHAR s NUMBER OF A hit bytes TO CONVERT, 

I F[R = FIRST HIT IN INPUT ARRAY fO CONVERT 

ARRAY = 8 BJT byte OUTPUT array, 



R- ?A 


n.o 

?i.i 

21,2 


21.3 

21 .4 


MINIS PROGRAM SPECIFICATION 
PROGRAM NAME- C8T06 
PURPOSE 

TO CONVERT AM 8 BIT CHARACTER STRING TO a 6 BIT 

identification 

DaTE^ 12-22-75 


REVI SI 0N- 
AUTHOR- 
COPPOTFR- 
LAMGfJAGE- 
C0RE S 1 2E 


C . J , FaRLESS (205) 883-1778 

DATARAFT 6024/3 
FORTRAN IV 

50 LOCATIONS (62 OCTAL) 


description 

FaCH 8 BIT CHARACTER IS CONVERTED TO A 6 
SUBTRACTING 32 FROM THE 8 R I T CHARACTER, 

USAGE 

CALLING SEQUENCE: 


CALL C8T06 < STRING, NCHAR, I START , ARRAY > 

STRING = INPUT STRING OF 8 BIT CHARACTERS 
NCHAR = NO. OF CHARACTERS TO CONVERT, 
ISTART = BYTE N f 1, TO BEGIN WITH, 

ARRAY = OUTPUT 6 BIT CHARACTER STRING, 


CHARACTER siring, 


BIT CHARACTER BY 


22 » 0 
22.1 

?*\2 


P2 . o 
22,4 
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PROGRAM MA m E- UPLOAD 
PURPMSF 

SELECT A DATA RASE AMD RFaD ASSOCIaTFD OFF I M 1 T I ON PILES, 

IDFMTIF I CaT I AN 

DATE- 9 JULY, 197b 

REVISION- 

AUTHOR- R,L, KEEFFfi C 20i> ) -B83-1 77b 

CUMPOTBR- DATACRaPT 6U?4 

LANGUAGE- FORTRAN iv 

CORE S12F- 632 LOCATIONS <1170 OCTAL) 

DESCRIPTION 

THE Data RASE Name- is re DUES ted if NOT aLHFaDY KNOWN, the file 
DF.F I N I T I ON file IS Rr-AD INTO MUFF'. THF USFR MESSaGE INDEX AND 

The field definition files are kead into cohmon arfas. 


USAGE 

CALLING SEQUENCE i 
CALL DBLUAD 





MINE PROGRAM SPECIFICATION 

?3 • 0 PROGRAM MAMS- DFLULK 
2.5.1 PURPOSE 

delete blanks in an columns of the operation cards and return the 

NUMRPR of COLUMNS OF CHARACTERS LEFT, 

?3.2 identification • 

DATEi 31-20-75 

REVISION- 

AUTHOR- C.J, FARLESS (205) 883-1778 

COMPUTER- f)ATACRAFT 6024/3 

language- fortran IV 

CORE SIZE- 82 LOCATIONS (12? OCTAL) 

?3 . 3 DESCRIPTION 

the operation card is storfd in ioaRay for error printout, then 

- Thf line is stored in iline and is Scanned* removing blank 
CHARACTERS. a COUNT is made Of Thf NUMBER OF NON-BLANK CHARAcTtRS 
FOUND AND IS RETURNED AS THE NUMBER OF COLUMNS (NcOL), 

?3.4 USAGE 

calling sequence: 

call DELBLK ( I L I WE » NCOL ) 

IL1NF = -ARRAY CONTAINING LINF TO SCAN, 

NCOt. = MO, MF COLUMNS OF CHARACTERS 
(NflN-BLANK> FOUND. 


B 
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24.0 PROGRAM NAME- EXCANS 

24.1 PURPOSE. 


EXECUTE FLAGGED STATEMENTS IN T HE QUaT) TABLE TO DETERMINE a 
candidate record’s sf. r membership status. 


24.2 IDENTIFICATION 


date- 

R E V I S I. f) N - 

author- 
COMPUTER - 


2 - 3-75 

C.J.FARLfSS (. 2 n5> 803-1778 
DaTaCKaFT A 024/3 


L A MGUARli- FORTRAN IV 

CORE SIZE- 49 LOCATIONS' (61 OCTAL) 


24.3 DESCRIPTION) 

IF MOT ALREADY PRESENT, THE CaNIJIDA-TF RECORD IS BROUGHT INTO CORE, 
ALL PLaCOHD ST A Temp NTS WITHIN Thf GIVEN LIMITS! IQF TO 1 0 L ) ARE 
expcotpi) with the Results of each quad stored in that quad, the 
final result of each statement is stored at the beginning quad of 
Thai statement and a hit corresponding to the seT number is set in 
The CANDIDATE aPRaY< JCAi\n) if the result is true, the NUMdEK of 
candidates IS ALSO INCREMENT fd I or a true result, 


?4,4 USAGE 

calling sequence: 

CALL E*CaNS( IWF-f iql,ncand) 

IDF *' FIRS I 0 1.1 A n T A R L E ENTRY TO EXECUTE 

iql = last duad Table entry to execute 
nt and = n Under of set mem hers r 

J C A V D- TERRE" a'OKD CANDIDATE. ARRAY ] n COMMON 

I c and ( i ) -data uase entry 

I C AND (2 ) - ( 3 ) - T W 0 WURD SET MEMBERSHIP aARRAY, HITS 1-N 
CORRESPOND to SETS 1-N 


li- ?8 


isrrrr 




MINE PROGRAM SPECIFICATION 

?5.0 PROGRAM NAVE- EXFLD 

25.1 PURPOSE 

LOCATE the specified Data base RECORD and EXTRACT THE NOMbFKED 
FIELD, 

25.2 IDENTIFICATION 

DATE- 15 OCTOBER 1974 

revision- 

author- R.L.KEEFFR < 205 )-883-1778 

CflVpDTFR- DATACRaFT 6024/3 
LANGUAGE- FORTRAN-! V 
CORE SI2F- 35 LOCATIONS (43 OCTAL) 

25.3 DESCRIPTION 

THF NUMBERED RECORD OF the data BASF IS loaded INTO A COMMON 
aRRav# if not already in tha t aR r ay, The Record number is also set 

in that array for future checks, the field is extract rd by 

SUBROUTINE extfld, 

25.4 USAGF ! 

calling sequence: 

CALL EXFLD( IDaTa* ITYPE, IFLDNO, IaRAY/MESG. IRECNO) 

IDATA “ DATA DFST I N A T I ON ARR A Y , (4 WfiRDS) 

I type = DATA TYPF (See FIELD DEFINITIONS) 

IFLDNO = FIFLD DEF I NT ION NUMBER, 

IARAY - INTEGER ARRAY For SOURCE RECORD, 

MESG. = MESSAGE NUMBER OF FIELD T I TLF , 

I R E C N 0 s RECORD NO, OF DaTa BASE ENTRY CONT A I N I NG F I ELD , 



MINES PROGRAM SPECIFICATION 




27.0 -program name- exquad 

27.1 PURPOSE 

FXPCOTE ALL FLAGGED OUaD TABLE ENTRIES IN A SEGMENT OF THE QUAD 

table. 

2 7.2 I.DENT I F I CAT I fJN 

0/jv TE- 7-9-75 

REVISION- 

AUTHOR- C.J, FA BLESS (205) 863-1778 

COMPUTER- DaTaCRaFT 6024/3 
LANGUAGE- FORTRAN JV 

CORE SUE- 578 LOCATIONS (HO? OCTAL) 



27.3 DESCRIPTION 

each flagged statement in the quad Table between the given limits 
IS EXECUTgn one OUaD at a TIME, the ONLY quad types that ARE not 
E X f C 0 T F D ARE STATEMENT START CODFS(QP cODF 73), SUBROUTINE 
CALLS(OP CODE 6)* AND NO-OPS (OP CODE 7). THE OPERANDS FOR EACH 
QUAD ARE OBTAINED VIA SUBROUTINE EXOPRN, RESULTS A R E STORED IN THE 
4TH AND 5TH WORDS OF EACH QUAD IN THF TABLE* AND THE FINAL RESULT 
OF A STATEMENT IS STORED IN THE 4TH AnD 5TH WORDS OF THE STATEMENT 
START OUADIOP CODE 73). 


27.4 USAGE 

calling sequence : 

VAL = ExQUAD ( IQF. IQL) 

IqFsSTARTIMG QUAD NUMBER TO RE EXECUTED 
IQL=LAST QUAD NUMbfR TO BE EXECUTED 
VAL=RESULT of THE LAST EXECUTED quad 



MINIS PROGRAM SPECIFICATION 

PROGRAM NAME - EXSETD 

PURPOSE 

FXFCHTP a St T DEFINITION ST A T.tML-NT OF THE QUAD TABlt, 

IDENTIFICATION 

DATE- 3 FEBRUARY 1975 

REVISION- 

AUTHOR- n.R . saudfrs 

COMPUTER- DATaCRaFT 6024/3 

L A ^ U U A B t - FORTRAN IV 

CORE SI/.E- 1001 LOCATIONS <1/5i OCTAL) 


ntsc R I ft I OM 

Each variable in the statement is examined through subroutine 

•RF.VSc'N' TO DETERMINE ALL PREVIOUS STATEMENTS TO RE EXtcU I ED IN 
DBF I MING THE SET, 

the statement is analysed to establish a list of set limiting 
Relations, ( ' aUped* k v f s tr i c t i ons ) this list ok restrictions is 

SCANNED FOR TmF P f{ E S E J\i 'C E OF An INDEXED VARIATE, IE FOUND * THE 
ASSOCIATED RESTRICTION IS A PPL 1ED TO riUILD A CANDIDATE FILE, EACH 
ENTRY OF THE CANDIDATE FILE IS A THREE WORD aHRaY, THg FIRST WOR|j 

is the data rase entry pointer, the second and third words (set 

MEMBERSHIP EjT MAP) ARP SET TO /.PRO, ThF QUAD T A B L t ENlRy USED T Q 

establish the candidate file is saved and set to A nop with a true 
value, each candidate is then checked for set membership via 
SUBROUTINE •SUBSET’, THE SAVED QUAD TABLE ENTRY IS Rt: STORED* I HE 
number of set members is saved and the: routine is exited, 

IF no INDEXED VARIABLES ARE FOUND, the ENTIRE data base is checked 
VIA SUBROUTINE ’FXCaNS’ , a ni D FOUND MFiMRE'PS aR£ SaVE!) WITH I HE 1 R 

pit mads im the candidate file, the file is closed, in.pui file 
name is snapped and the number of candidates is returned, 

usage ... 

CALLING SEQUENCE! 

call exsevih iuF, iol,ncamd) 

3'S :; <p- ;: u:ii)rF/ = FIRST QUAD I AUL E ENTRY OF STATEMENT 

IQL = LAST QUAD TABLE ENTRY OF STATEMENT 

mca nit - number of candidates found. 



MINIS PROGRAM SPECIFICATION 

?9.U PROGRAM NAME- FXSTUT 

■ : I ’ ' • . ; 

i purpose 

EXECUTE A STATEMENT IN THE QUAD TaRLE, 
29.2 IDENTIFICATION 




DATE- 
REVI SIOim- 
author- 
n'OMPOTEiTr 
L A N ij U A G E - 


24 JANUARY 1 075 

D. Ft, SANDERS 
OCR 60 24 
FORI RAM IV 


(^CEDING PAGE BLANK NOT FILMED 


CORE SIZE- 215 LOCATIONS (.3? 7 OCTAL) 


2 9 . A DESCRIPTION 

The STaIFM-NT T Y 13 F: IS EXAMINED TO DE TERM INF THF APPROPRIATE ACTION 
To he t a kem. for thf first set creation type (D* the »f i is 
defined via subroutine 'hx.se riv , pop a subset crfa i ion type 

STaTEMFNT 12), THE SET IS DEFINED VIA SUBROUTINE iSUpSEl*. FOR A 

variable creation type st a tememt is ) , no action is taken, for an 
ASSIGNMENT 1' Yf > F SUBROUTINE CAT.l STATFmFnT TYRE (6>* the def ined 
VARIABLE IS CHECKED FUR SYMhUL TYPE, IF THE SYMBOL TYPE IS A SET 

name; thf referenced subroutine is called, otherwise. the 

STATEMENT IS ICNOWFU, If TiiE S 1 ATFMFNT TYPE JS A MON- ASS 1 RNMfcNT 
SUBROUTINE call (7). 1 Bf RFFERFNCFD SUBROUTINE -is CALLED. 

after any subroutines are called# the duad stack is scanned thru 

The CURRENT STaTFMFNT TO FIND and RESET any FLAG 6 b D S I aT tMEN I s , 
Set counts u.F MEMBERS of cREATfu SfTS are Saved IN COMMdN/SeTcN t/, 

29,4 USAGE 

CALLING SEQUENCE: 

CALL EXSThlTI I or. I 01. ) 

i of = riRST uuad Table entry of statfoent, 

1UL = LAST QUA U TABLE ENTRY OF STATEMENT, 


MINIS PROGRAM SPECIFICATION 

30.0 PROGRAM NA M fc- E X T F L D 

30.1 PURP1SF 

FXTRACT the specified field from the given array, 

I . ■■■■ 

30.2 IDENTIFICATION 


DATE* 

REVISION- 

author- 


7 JULY, 1975 


QUAtfT* 


R.L.KEFFER (205)-883-l778 
COMPOTER- DATACRAFT 0024/3 
language- FORTRAN-IV 

CORF SIZE- 1235 LOCATIONS (2323 OCTAL) 


30.3 DESCRIPTION 

THF FIFLD DEFlMlITIfiM aRRaY IS REFFRFNcED TO DETERMINE STARTING 
PIT POSITIONS, NUMqfcR OF BITS, LaTa TYPE, AND DaTa KEY, IF THE 

fiflp is kpyed, the fifld key is compared with the data Record 

KEY. THE DATA TYPF, » 1 TYPE* . IS SFT ACCORDINGLY. THE £ X I R AO I ED 
FIELD IS TRANSFERRED TO THF OUTPUT DaTa aHRaY WORdS ONE aNu TwO, 

if there is a surfield. 1 it is transferred to words three and four 
of the data array, in both cases, the data is returned right 

ADJUSfED IN THE MINIMUM NUMBER OF REQUIRED WARDS, UMAX) IF THE 

data is text, the first byte number is returned in idaTaqj , if 

THE data TYPE IS C WAR ACTFr < 6 > , 1 HE SPECIFIED NO, OF CHARACTERS 

< 4 »nrw max) is returned left justififu in idaTa array, 

3 C , 4 US AGF 

calling sequence: 

call ExTFLU< IDaTa» ITyPE, IFLDNO, aRRaY, MESG) 

IDaTa = DaTa DESTINATION ARRAY (4 WORDS) 

I I YpF = DATA TYPE (SEE FIELD DEFINITIONS) 

IFLDNO = FIELD DEFINITION NUMBER, 

array '.= integer array of source record, 

V ESG -MESSAGE NUMBER OF FIELD TITLE, 
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MINIS PROGRAM SPECIFICATION 

31.0 PROGRAM NAME- EXVARP 

31.1 PURPOSE 

EXECOTF A V A P 1 ABLE UEF I N l T I ON STATEMENT OF THE UUaD TABLE 

31.2 I DENT IF I CAT I ON 

DATE- ?-4-75 

REVISION- 

AUTHOR- C. J, FARLFSS (205) 083-3778 

COMPUTER- DATACRAFT 6024/3 
LANGUAGE- FORTRAN IV 

CORE SIZE- 202 LOCATIONS <3l2 OCTAL) 

% 

31.3 DESCRIPTION j 

given a quad table entry for a variarlf definition statement, each _ 
suf’f-ssivF quad 1 is f x f- c 1 1 r e u . storing the result in words- 4 and 5 or 
the quad, n nj t I L another statement meg Jn$( operation cnuE=73)oR the 

END OF THE ou AD TABLE IS REACHED ( OPERaT I ON COOEsQ). AF I EH 

completion oc- a statement, i he result of the final operation is ~ s 

STORPlj IN The 4 T H AND 5TH WORDS OF THE FIRST QUAD TaRLE ENlRY OF [ 
THE STATEMENT, IT IS ASSUMED THAT THE RETERPnCED DATA RASE EmIRY 
IS IN CORE. ALL OPERANDS aWE EXTRACTED V1a SUBROUTINE EXOPRM A N J ) _ 

ARE ASSUMED to be in floating point, j 

31.4 USAGE "1 

calling sequence: 

CALL f XVARUC IQST) ' \ 

lost = Entry pointer to statemnet start in quad table _ 


MINIS PROGRAM SPECIFICATION 


32.U PROura m Name- FILDEL 
32.1 PURPOSE 

delete a file from the oldman systfm, 

32.? I DENT JF I CAT I AN 

PATE- 19 MAY, 1975 

REVISISiN- 

AUTH5.R- R.L.KEPFER (205) 883-1778 

COHPOTER- DATACRaFT 6024/3 
LANROAGt- FORTRAN! IV 

CORE SI 2E- 285 LOCATIONS (435 OCTAL) 



DRIGINAE PAGE IS 
gg £OOR QUAUTX 


32.3 DESCRIPTION 

the na^ep file is closed* if active, the existence of the file is 

CHECKED And TriF FILE IS DELETED VIA A D6LFTF COMMAND IF IT IS 
FOUND TO EXIST, 



32,4 USAGE 

calling sequence: 

CALL FILPELUDF) 

IDF - 5 WORD FILE DEFINITION WITH WORDS 
1-3 CONTAINING THF NaME (?A2) 




MINIS PROGRAM SPECIFICATION 

33.0 PROGRAM Nam|=- FILFwf) 

33.1 PURPflSF 

CL^Sf Thf MAMfeti DISK FILE# IF OPEN, AND DELETE THF FILF FROM 1 HE 
ACTIVE FILF LIST, 


33, .2 I DENT I FI CAT IfiiM 


DaTE- 

11 1) F C F H PER, 1974 

Revi si Din- 


ah thor- 

R.L.KEFFER ( ?05 >-883-1778 

COMPQTEh’- 

DATACKaT T ',024 

language- 

FORTRAN IV 

C'ORE S!£F- 

?06 LOCATIONS (3i6 OCTAL) 



33.3 DESCRIPTION 

TUP MaHED FILL- IS LOCATED IN THE FILF STa'CK, CLOSED, a Nil DELETED 

frok The stack. The corresponding entry in the priority stack is 
delever and all following entries arf moved up in thf ta^lE . 


33, A USAGE 

CALL INC SEQUENCE J 
CALL F I LEND ( NA'N.F I I- > 

NAMFIL = FILE NAME ARRAY ( 3 A p ) 


MINIS PROGRAM SPECIFICATION 

PROGRAM NAME- FILLED 
PURPOSE 

read portions hr entire Random disc files, 
identification 

DATE- 12 DECEMBER, 1974 

REVISION. 

AUTHOR- R.L.KEFFER (?05)-683-l778 DRTGINAD PAGE IS 

QE POOR QUALITY 

COMPUTER- DaTaCRaFT 6024 
LANGUAGE- fortran IV 

CORE S I HE- 388 LOCATIONS ($04 OCTAL) 

DESCRI PT I ON 

The N A M6P RILE is ADVANCED to the TOP PRIORITY aND OPENED VIa 
♦SpTPRI*, the REOUfSTLo NUMBER of pYT£S is CALCULATED A y WORDS and 
ThF RECORD NUMBER jS USED AS AM EnTRy POINT TO ThE FILE, ThE 

REOCESTED NUMBER OF WORqS aHE transferred to the given array VIA 
SUBROUTINE ’REDWRT • , 

USAGE 

CALLING SEQUENCE : 

CALL FILRED(MaMFIL,NL'MREC,NbyT , ARRAY, IER) 

NaMFIL = FILE NaMF aRRaY. ( N a ME ( A 2 > » N R E C » I R EC S 7 > 

NUMREC = RECORD NUMBER To START RF A D , 

MRYT s number OF bytes TO read, 

ARRAY - ARRAY TO 9F READ INTO, 

IER = ERROR CODE SET AS FOLLOWS; 

= 0 FOR MO ERRORS, 

s 1 FOR READ. ERROR, L ■ 
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■ .I arm 


MINIS PROGRAM SPECIFICATION 
35,0 PROGRAM NAME- FILWRr 
35*1 PURPOSE 

WRITE ALL 9R PaRT OF a RANDOM nJSc FILE, 

35.2 IDENTIFICATION 


date-* 

REVISION- 

AUTHOR- 

compqtfr- 

langOagL- 


12 OFCEMBER # 1974 


R * L . KEEFER ( 205 ) -083-1778 
DATACRaFT A024 
FORT RAM IV 


CORE SUE- 223 LOCATIONS (337 OCTAL) 


35.3 DESCRIPTION 


The N A MED file IS a ova ''CEO TO THE TOP PRIORITY AND OPENED V I a 
' set pr i * , the Requested number of bytes are written from the 

CALLING ARRAY VIA SURR.mUTimE 'REDwRT', 


35,4 USAGE 

calling sequence: 

Call f i lwrt ( namf i l # nuhrec # nu y t , array , ifh) 

NAHFIL = FILL NAME ARRAY, (MAmE( 3A2) rNRECSi JRECSif ) 
NlMRfeC = RECORD NUMBER TO START WRITING AT, 

N R Y T = NUMBER OF BYTES TO TRANSFER, 

ARRAY = ARRAY TO BE WRITTEN FROM, 

IFR 


= ERROR CODE SlfT as FOLLOWS: 
= 0 FOR NO ERRORS , 

= 1 FOR WRITE ERROR, 


~1 


I* 1 

$ 


T ? 

,1: 

li .< 


« ;J 

T. 


r. 4 




T* ; 
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MINIS PROGRAM SPECIFICATION 
37. G PROGRAM NJ a * i li — FLUFIN 

37.1 PURPOSE 

* A '1)0 » DELS T E » REPLACE # MODIFY# OK LIST FIELD DEFINITIONS, 

37.2 IDENTIFICATION 


DATE- 3 JULY, 1975 

revision! 

AUTHOR- R.L.KEEFEK ( ?u5 ) -883- 17 7fl 

COMPUTER- DATaCRaFT 6 0 ? 4 / 3 

language- fortran IV 

CORE SIZE- ?10Q LOCATIONS <4064 octal) 


37,3 DESCRPTH1N 

Thf OSF-K IS REQUPSTF.n TO INPUT THE DFSIRfD OPERATION TYPE, THE 
first letter or the Response determines thf action taken, for add. 
RE p I.AcF» and. MODIFY Actions The USfR IS INSTRUCTED To ENTER each 
S f- GHENT of the FIELD DFf I N IT I C)N AFFECTED, FOR THE DELETE ACTION, 
THE FIELD Id is CHECKED To DETERMINE if I-r IS a KEY field, IF SB, 
A MESSAGE IS GIVEN TO pfcLeT-g KFFgRgNchS TO THE KEY FIELD BEFORE H 
CAM RE DELETED, OTHERWISE , 1 HE HELD DEFINITION IS DELETED, CROSS 

pointers are adjusted and the associated message is deleted tor 

TH c LIST ACTION, Each segment oi the FIELD DEFINITION is LISTED, 
IF THE ACTION IS EXIT, THE USfcR IS ASKED IF THE PREVIOUS CHANGES 

should ue effected, if so, The appropriate arrays are written on 
the save file. 


37,4 USAGE 

CALLING SEQUENCE’. 


FLOFIN 


3a, o 

38.1 

38.2 


38,3 


MINIS PROGRAM SPECIFICATION 

program name- fltpt 


PURPOSE 

CONVERT CERTAIN FLOATING POINTS Tfl HOST MACHINE FLOATING POINT, 

IDENTIFICATION 

DATE* 2-17-76 


revision- 


author- C, J. FARLESS • <205) 803-1778 

COMPUTER- DATACRAFT 6024/3 

language- fortran iv 

CORE SI2E- 435 LOCATIONS <663 OCTAL) 


®®®nsd page IS 
OE POOR QUALITY 


i 


DESCRIPTION 

FLOATING point OF THF FOLLOWING FORMATS aRE CONVERTED to the host 
•MACHINE FLOATING point format, 

16 FJ IT W0R0S-NOV A- DATA GENERAL 1 FLOATING POINT WORD-2 16 BIT 
WORDS BIT fuSi.GN BUS 1- 7=FXP0NENT +64 < * 100 ) RITS 8-32(0R 8-15 AND 

0-15 of second word)=mantissa exponent indicates the position of 
THF DECIMAL p 0lNT. AN EXPONENT OF 0 PUTS THF DECIMAL POINT TO THE 
LEFT OF BIT 8. AN EXPONENT OF l WILL PUT THE DECIMAL POINT TO THE 
LEFT OF BIT 12. AN EXPONENT OF -i WILL PUT THE DECIMAL POINT TO 
THE LEFT OF 4 RITS OR BlN A Ry DIBITS LEFT OF BIT a, NEGATIVE 

mijmhers(mantissa) are indicated when bit o is i and are in sign 
magnitude form, 

24 hit wORdS-DATacRaFT 6024/3 1 FLOATING POINT WORD=2-24 BIT 

WORDS. WgRfJl PIT 0 = SIGn BITS 1.-?3 = M AnT I SS A WgRD 2 BIT 16 = SIGn OF 
F X D fi V E N T BITS 1 7-23 = EXP0NENT NEGATIVE MANTISSAS AND EXPONENTS ARE 
EXPRESSED IN TWO’S compliment FORM, 

32 BfT WORDS-SIGMA 5 1 FLOATING POINT Wt)RD = l 32 BIT WORD B I T 
n=SIGN SITS l-7=EXP0MENT+64 BITS 8 -33 =M A M T I SS A EXPONENTS aRE IN 
POWERS OF 4, FOR A NEGATIVE VaLUE OF THE m A NTISSa THE ENTIRE 32 
BITS ARE IN TWO’S COMPLIMENT FORM, 

32 BIT W 0 R D - 1 B M 360 1 FLOATING POINT WORD = l 32 BIT WORD B I T 0 = SIGN 
PITS i-7=EXP0NFNT + 64 BITS 8-tb= MANTISSA NEGATIVE MANTISSA VALUES 
ARP IN SIGN MAGNITUDE FORM WITH PIT 0 =1 EXPONENTS ARE IN POWERS 

op a, the decimal point is to The l^ft of sit a when the exponent 

IS 0, 


IF NO conversion is nefded the VALUE is TRANSFERRED from the input 
STRING To THE OUTPUT STRING, 
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I 


H 


’<8,4 USAGE 

calling sequence: 

CALL FLTPT( ISTR, IFI'L* lour. ITYP) 

1STR = INPUT STRING 

IFIR = FIRST BIT IN INPUT STRING TO CONVERT 
I OUT = OUTPUT STRING 
ITYP = DATA TYPE 



MINE PROGRAM SPECIFICATION 

39.0 program name- Nats 

39.1 PURPOSE 

SETU-3 OUTPUT FORMAT and HEADER SPEC 1 F I CAT l O nS FOR OUTPUT REPORTS, 
W.2 IDENTIFICATION 

DATE- 7-3-75 

REVISION- 

AUThOR- CATHY J, FARLESS ( 205 ) 883-1778 

COMPOTPR- HATACRaFT 6024/3 

LAMGOAGc- FORTRAN IV 

CORE S I £ E — 1387 LOCATIONS (2553 OCTAL) 

39.3 DESCRIPTION 

FROM a LIST OF ITEMS IN COMMON ( R£USf ) » FORMATS To PRINT THE 
HEADERS AND DaTa LInES aR£ C^aTED AND STORED I N THE ARRAYS »FMaT» 
and 'fdmat ' , 

39.4 USAGE 

CALL TNG SEDUFNCE : 

CALL FMaTS( I START. I STOP , NCHaR » LC'NT ) 

I START s .NO, OF FIRST ITEM TO OUTPUT 
I STOP = NO. OF LAST ITEM TO OUTPUT 
NCHaR = NO, OF CHARACTERS IN HEADER FORMaT 
LCNT = NO. OF LINES. IN HEAUFR 


$m<3MAV PAGE IS 
0E POOR QUALITY 
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MINB PROGRAM SPECIFICATION I 

\t 

40. a PROGRAM NA a E- GFNATE . ;j 

ht 

4J.1 PURPOSE I 

'§ 

GENERATE THE REQUESTED INDEX FILE AND FTS FILE DEFINITION, jj 

■ I 

40.2 I DENT 1 F I CAT |DN { 

DATE- 5-2H-75 

REVISION" J 

■ I ■ I 

AUTHOR- C*. J, FARL^SS <205> «a3-l77» ■ / ■ \ 

.. ■ i ... i 

COMTEK- DATAGRAM 6024/3 H 

LANGUAGE- FORTRAN |V ] 

" . ... .. . J 

CORE SI2E- 707 LOCATIONS <1303 OCTAL) 


40.3 DESCRIPTION 

' IF TYPE EDOaLS 1. TWt: NUMBER of PITS NEED LD TO STORE THE LARGEST 

data hasp record is calcUlaTo. the hummer of bits needed to store 
The field is extracted, and the minimum no. of words for an index 

ENTRY IS CALCULATED. THE FILE DEFINITION IS STORED IN 

1 0EF ( WRTnfcF ) # THE IND^X FILE IS CREATED 8Y Pac* I NG < PACKER ) EACH 

!>AU BASE RECORD NHHptR and Tnfe CORRESPONDING field Value and 
WRITING Thc E’NTHy in The file. after all ENTRIES are on FILE. 1 He 
file is sorted gy field value in ascending order, the numhfk of 
entries in the file will hp f.ohal to the no, of data base records, 

IF TYPE * ?• THE INDEX F1L» : DEFINITION JS LOCATED I N I DEI. I HE 
MAXIMUM Ai\»n MINIMUM VAl UES ART* CALCUl ATfcH, AlOnG WITH SEGMENT 
Sj?fci AND NUMBER OF WOH U S FOR EACH ENTRY. THE FILE DEFINITION IS 
STORE I X ff!6f (WRTDEF) AND THE INDEX FILE WRITTEN ON ))i$C HY 
STORING THE POINTER 10 THE INDEXED FILE FOR EACH SeUMbNl'S 
CORRESPONDING VALUE. ThE NUMttFK OF ENTRIES IN THE INDEX FILE WILL 
PE EQUAL TO THE NUMBER of SEGMFNTS PLUS 1, iW H I C H IS RETURNED in 

msec; if the nmk.her nr kfchros in the file is returned from wktuff 
as o. nSpg is $et to o. indicating that uktoff could not store the 
file definition, or that the indfxfd file could not re found. 


40.4 USAGE 

calling sequences 

CALL PfeNA T 1 1 lFLDNM.l EVEL. I T YPE , NSFU# WDE V ) 

IFtn/iM = FIELD NUMBER TO INDEX 

LEVEL s INDEX l.EVf:L 

I TYPE = TYPE INDEXING 

NSpr, * REQUESTED MUMupK OF SEGMENTS 

WOEV s KQRA AREA DEVICE NUmMER FOR SORT 
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= 0 FUR Disc 

S number assigned to mt for tape, 




MINIS PROGRAM SPECIFICATION 


41,3 PROGRAM NAME- GEND6X 
4 1,1 PURP ISff 

GENERATE, UP DA TE * and DELETE INDEX FILES, AND RECREATE INDEX FILES 

when updating the data base, 

41*# 2 IDENTIFICATION 

I 

DATE- S-?a-75 

REVISION* 

AUTHOR- C.J. FaRLESS (20:5) BBi-1770 

COMPUTER- DATACRaFT 6024/3 
LANGUAGE- FdRTAN IV 

CORE S I £ E - 226 LOCATIONS <342 OCTAL) 


41.3 DESCRIPTION 

. t 

if! THE field NUMBER 13 j?FRO, Gfc'.NDPX WILL REGENERATE ALL INDEX 
FILES D £ S c R 1 B E D IN The INyPX FILE D6F I M 1 T I ONS <1 i)EF 41-N) USING 
GENAT6, AND MA*E AnY NECESSARY CHANGES TO THE FILE DEFINITIONS. IF 
I TYPE IS ZERO, QRNnEX WILL UELpTF THE INDEX FILE AND ITS FILE 
DEFINITIONS USING nELNnX, FOR CALLS IN WHICH IKLdNO, LEVEL, aNd 
I TYPE ARE ALL NcJNZfRM, GENDEX W ILL GENERA I E THE REQUESTED INDEX 
FILE USING GENATF. THE NUM«t-W OF ENTRIES IN THE INDEX FILE w I LL BE 
RETURNED THROUGH THE ARGUMENT NSFG, 


41,4 USAGE 

CALLING Se.I3JE.NC6! 

CALL GFNDEX C I FLDMO, LEVEL, 1 TYPE, NSEG,WDEV) 

IFLDNO = FIELD NUMBER ( = 0 WHEN UPDATING DAT a BASE) 

LEVEL = level h F index 10 GENERATE OR DELETE 
I T Y°t = TYPE OF INDEXING 

= 1 FOR LEVEL GNF INDEXING 
= 2 FOR LEVEL 2 INDEXING 
= n WHFM DELFT I NO I N n E X FILE 
NSC-G = NUMBER OF SEGMENTS OF INDEXED FILE FOR LEVEL 2 
I INDEX I MG. THE NUMBER or ENTRIES JN THE GENERATED 

F I l.tr IS RETURNED IN NSFG, 

I ‘ WnEV = DEVICE NUMBER of SORT WORK AREA 

= 0 FOR DISC 

= NUMBER ASSIGNED TO MT FOR TAPE, 

, 

\ 

f. 


Y - ; . -.iu, 
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MINE PROGRAM SPECIFICATION 


4 2.0 

PROGRAM 

NAME- 

42,1 

PURPOSE 


; . 

PROVIDE 

SUgROUT I 

• ■ 

LEXICAL 

SCANNING 

42,2 

I-DENT I F 

1 

[CATION 


DATE- 

25 0 


GETNXT 

NE GFTSMB WITH THE NEXT 
PROCESS , 

CTOBER 1974 


CHARACTER during the 


Rev i s i on- 
author- 
COMPDtER- 
LaNGUAGE- 
CORE S I ZE- 


D.R. Sanders 

OCR 6034 
FORTRAN IV 

50 LOCATIONS <62 OCTAL) 


42,3 DESCRIPTION 

GeTMXT FIRST DFPOSlTS the CHARACTER just checked INTO the output 
array. Them it- steps the pointer to the input aRRay by one, 
compares the character count to the maximum allowable in a symbol, 
AND EXTRACTS the character from Thf INPUT ARRAY if there is no 
overflow, control is returned to getsmb at this point, 

42 4 USAGE 

CALLING SEQUENCE; 

CALL GETNXT ( I ARY , NSVE , NEXT . ICHARY, ICHH,NLIM> 


iary = 

INPUT ARRAY 



NS VE = 

pointer 

TO START OF SYMBOL IN 

iary 

NEXT = 

pointer 

TO CURRENT 

SYMROL IN 

IARY 

!CWaRY= 

output 

ARRAY 



I CHR = 

CURRENT 

CHARACTER 

from iary 


NLIM = 

MAX IMJM 

character 

count 




original page is,. 

EPOJL QLAIXC& 
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MINIS PROGRAM SPECIFICATION 


44.0 PRMGRaM Na a, H- GPfOPR 

44.1 PURPOSE 


T CJ L ‘1 C A T F Mm!) RETURN The VALUE OP aN OPERAND, 

44.2 identification 

DATE'- 1 2 - 1 6 - 7 S 

revision- 

AUThMR- C.J.FAPLFSS (205) 683-1778 

COMPUTER- DATaCRaFT * G> 4 / 3 

LANGUAGE- FORTRAN I V 

CORE SIzfF- 166 LOCATIONS <246 OCTAL) 


44.3 Dt SCRIPT I ON 

• : i • . ' ■ 

The type: of operand is determ info py the input argument ival 
(value of operand in the nuad table), negative values indicate a 
quad table value op intermediate value, their values are extracted 

FROM the: 4 T H AND $Th WORDS IN THE DESIGNATED QUAD OF THc quad 

Table and returned in the iop argument . all other values op ival 
are di v ! iH"n r y :l n a n and l added to determine The type, I HE 

REMAINDER IS STORED in NUN. IF !TYPF=1 l OR IVAL IS LESS THAN 

i one) , it is an element , the Value of mum determines which element 
IN THE EI-E w I-nT array IS RETURNED in iop, if the type IS 2 OR 
3 ( i v a l is cheat- hr than tooo and lfss than 3ooo)*it is a 

GGMSTaMT, THE VALUE OF NIJM DETERMINES WHICH CONSTANT IN THt ICON 
array IS RETURNED in iop, A FIELD NUMBER IS TYPE 4 ( I V A L = 3 0 0 1 TO 
3? 00 ) , ThE VALUE nF NUN) IMDICaTFS WHERE IN I rF FjElD NUMBER ARRAY 
That THE QUAD NUMBER 0 r THE FIELD VaLUE IS STORED, THE VALUE 

storfd in that quad (word ^ and s) is returned in iop, 


43,4 USAGE 

calling sequence: 

call GE-TOPR ( I VAI. » IOP) 

IVAL = OPERA, 'I D VALUE FROM QUAD TABLE 

PR = ? WORD RETURN ARRAY FOR VALUE OF OPERAND 
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MINIS PROGRAM SPECIFICATION 


44, C PROGRAM NAMfc- 

44,1 PURPOSE 


getsmr 


RETRIEVE a SYMRSL rt)R SUBROUTINE LFXCAL AND NOTIFY THAT ROUTINE 

when an illegal symbol or the fnd of an input line is encountered, 

44.2 IDENTIFICATION 


date- 

REVISION- 

AUTHOR, 

' I 

COMPOTER- 
LANGOaGE- 
CflPE SHF- 


25 OCTOBER 1974 
d.r, Sanders 

OCR 6024 
FORTRAN IV 
525 LOCATIONS 


ORIGINAL ROSE IB 
OF, POOR QUALITY 


<1015 OCTAL) 


44.3 DESCRIPTION 

GETSMb ACCEPTS the INPUT array and A POINTER to The first 
CHARACTER IN the CURRENT SYMBOL IN Th a T aRRaY, a TREE STRUCTURE IS 

followed in order to classify the next symbol as alphanumeric, 
integer* real or special and to save all of the characters in the 
symbol, control is returned to lexcal with a pointer to the next 
Symbol in the input array, 

44.4 USAGE 

CALLING SEQUENCE 1 

call getsmr < ury, i chary, nch* itypeiNexi, limit) 

• IARY = INPUT- ARRAY 

ichary= output array 

NCH =• NO, OF CHARACTERS IN SYMROL 
ITYPF = TYPE OF SYMBOL 

1= ALPHANUMERIC STRING 
2= I NTEOER CONSTANT 
3 = R 6 A L CONSTANT 

4* SPECIAL CHARACTER STRING t , AND. ETC , > 

5=L ! TERAL STRING 
-IsPRROR 

Os NO CHARACTERS REMAINING 

j ” ■ . 

NEXT s POINTER TO CURRENT SYMROL IN I ARY 
LIMIT = MAXIMUM NUMBER OF CHARACTERS IN • I AR Y * 

COMMON USEPJ NONE 
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MINIS PROGRAM SPECIFICATION 

45.0 program name- hues 

45.1 purpose 

T 9 O'C.TFRmim IF A SPECIFIED POINT ON FaRTH IS 0 N A PaRIICULAR 
MERITS photo, 

45.2 IDENTIFICATION 

date- j .8 septembfr, 1975 i 

Revision- adapted from a meriis sup of ihe same name, 

AUTHOR- R.L.KEFFFR ( 205 > 883-1778 " ; 

COMPUTER- D'aTaCRaFT fi 0 2 4 / 3 3 j 

LANGUAGE- FORTRAN IV I 

CORE S I £ F - 121 LOCATIONS <171 OCTAL) f 

45.3 D E S C R IP 1 1 0 N 

PHOTO COVERAGE, ASSUMED TO BE 1 0 0 N a U1IcaL MILES, IS COMPENSATED 

f«r latitude and bearing and Compared to ihe sptCjFjeo point, 

45.4 USAGE 

call i ng Sequence : 

CALL HI TES<LaCP»LOcP»REaR,LaS,LPS, I A ) • 

LACP = LATITUntj OF PHOTO 

L 0 C 3 = LONG I i'UiJI: OF PHOTO, ; 

bear = bearing ' nr saitllite. i 

LAS = LATITUDE OF POIM :] 

L M S = LONGITUDE OF POINT, 

IA = FLAG SFT TO 1 IF PfUNl JN PhOTO, ELSE 0, I 

y“:.- ; ■. ■ ^ '.V ■■■ 
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MINIS PROGRAM SPECIFICATION 
4t>,u program name- irdep 


4b. 1 PURPOSE 

PROVIDE a FORTRAN ROUTINE TO DEPOSIT ANY N-BIT RYTEi WHfc'RE 
N.UE.24. IN AN INTEGER ARRAY,' s 

46,2 IDENTIFICATION 

DATE* IQ SEPTEMBER 1A74 


revision- 

author- d.r, Sanders <205>-fl83-i778 
COMPOTER- DCR 6024 
LANGUAGE- ASSEMBLER 

CORE S I EE- 76 LOCATIONS (114 OCTAL) 




40.3 DESCRIPTION 

The SPECIFIED FIRST RIT POSITION is DIVIDED 3Y 24 TO DEi' ERMINE 
WHICH WURU(S) IN THE TARGET ARRAY ISC ARE ) TO BE CHANGED, THE LAST 
•WRITS’ OF THE SOURCE WORD ARE DEPOSITED IN THE TARGET ARRAY 
BEGINNING AT BIT POSITION ' I F I R ’ , IF THE INSERTED BYTE EXTENDS 
BEYOND THE LAST BIT OF ONE WORD, THE ADDITIONAL BITS GO INTO THE 
NEXT WORD IN THE TARGET ARRAY, 

46.4 USAGE 

CALLING SEQUENCE s >; 

CALL ianEPt IFIR.NRITS, IT aRGT, ISORCE) 

IFIR = FIRST BIT IN TARGET FOR BYTE, SEE NOTcl, 

NR ITS = NO, OF BITS TO RE DEPOSITED , 

i targt= target array for byte, 

ISORCE= SOURCE WORD RIGHT JUSTIFIED, 

NOTElS IFIR MAY RE USED TO DFPOSIT THE I-TH RYTE OF ANY S l 2E 
(UP TO 24) IN THE TARGET ARRAY, EG,, IF USING 

A BYTF SI7E OF 15 ANQ BY TF NUMBER 11 IS TO Ht DEPOSITED 
SFT ARGUMENT I F I R = d YTF S 1 ip* ( BYTE, NUN- 1 ) OR 1F1HS150 IN 
THE CALL TO I RDEP , 
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MINIS PROGRAM SPECIFICATION 


47. U PROGRAM NAME- IBfcXT 


4 7,1 PURPOSE 

PROVIDE A FORTRAN' CALLABLE f'UinCT I ON TO FXT|*ACT ANY N-B1T BYTE# 
WHPkF N.LE.SM# FROM A iv INTEGER A WRAY . I 

47 , 2 1 D €r tvi T I F 1 n A T, 1 ON 

DATE- ID SEPTEMBER 1974 

REV I SlOiM- 

AUTHOR- O'.R.SaMUFRS ( 205 >-RB3- 1.778 


COMPUTER- I1GR 6Q?4 
LANGUAGE- ASSEMBLER 


CORE S1ZF- 


60 LOCATIONS (74 OCTAL) 


47.3 DESCRIPTION 

; ■ ' • • f ; ' ' j: ' ■ ' T . 

THF SPECIFIED BYTE HAY BF ! Nt I RELY WITHIN ONF WORD OR PARTIALLY IN 

Each of two adjacent words, Tpt first wown containing any of the 

BYTE IS LOCATED BY ADDING THE ARRAY ADDRESS TO THE FIRST BIT 
NUMBER divided by ?a, the by. if is extracted FROM The APPROPRIATE 

WORD(S) AMD RETURNED RIGHT JUSTIFIED WITH THF UNUSED LEADING BITS 

ZEROED, IF ZERO JR NEGATIVE BITS ARP REDuFSTED OR NR1TS.GT . ?4» AN 

ENTIRE WORD IS RETURNED, 

47.4 USAHE 

calling sequence: 

I BYTE = I BEX T ( I T I ,J » MB I I S , I WORD ) 

1 F I R = FIRST BIT OF SELECTED BYTE, ( 0 - N ) SEE NUTEJ. . 

NR ITS = NUMBER OF BITS IN SELECTED BYTE, (0-24) 

I WORD = W-'RD ARRAY CONTAINING !J E S I R E D BYTE, 

NOTE! : I FIR HAY BE USED IB SELECT THE I-IH BYTE OF ANY SIZE 

(DP Tn ? 4 BITS) IM Tn!f ARRAY ’ I WORD * , EG,, IF DESIRED 
BYTE SIZE IS 1.7 AND THE BYTE NUMBER [S j J 5 SE I 
ARGUMENT I F IR = B Y If-S I ZE* ( B YT p NUrt-l ) OR 204 IN THE CALL 
TO I BEX T • 
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i 

] 

48.0 

48.1 

48.2 


48.3 

48.4 


fe*** 1 V!* * ._ ^ . v >- '' j. 1 * sy ^ T - 1 , T ^v*. -- ,y- 

MINIS PROGRAM SPECIFICATION 

program name- iblank 


PURPOSE 

test character input buffer for a blank oh 2fro line, 

IDENTIFICATION 


DATfci ?3 OCTOBER, 1974 

revision- 

author- 9. L. KEEFER < 205 ) -883-17 78 

COMPUTER- DATACRaFT 6024/3 
LANGUAGE- FORTRAN-IV 
CORE SUE- 69 LOCATIONS <105 OCTAL) 



[>FSC& jptrim 


THE FIRST * N * CHARACTERS OF THE ARRAY aRE CHECKED FOH 2hRO OR 

PLANK CHARACTERS, ThF function is SET Py The test, 

USAGE 

calling sequence: 

IFLAG = I8LANK( IBUF.NCHAR) 

I BUF = BUFFER CONTAINING * NCHAR 1 

CONTIGUOUS .CHARACTERS, i 

NCHAR = NUMBER OF CHaRACTrkS TO CHECK, 

IFLAG = 0 FfjR A 2ERO PUFFER, 

-1 FOR A RLANK BUFFER, 

+1 FOR CHARACTERS IN pUFFFR, 
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MINIS PROGRAM SPECIFICATION 


50.0 PaiG^A* Name- INCOHD 


50,1 


50.2 


PURPOSE 

READ AND R6TURM A COORDINATE, 
IDENTIFICATION 

Date- 17 SEPTEMBER, 1975 


£CEDING PAGE BLANK NOT FILMED 



REVISION- 

AUTHOR. 

C3MP0TER- 
LANIGOaGE- 
C0RE SI2E 


R.L. KEEFER ( 2 □ 5 X 683-1778 
DATaCRaFT 6024/3 
FORTRAN IV 

49 LOCATIONS (61 OCTAL) 


1 


50.3 DESCRIPTION 

A MESSAGE is OUTPUT PROMPTING THE USER TO F N T g R a PARTICULAR 

coordinate, the response is Scanned via subroutine 'coord' from 
Thp merits system, for degrees and minutfs of the coordinate, i he 
ENTERED COORDINATE TYPF IS CHECKED AGAINST the requested type, if 
different, the us e r is prompted to Re-enter the coordinate, 


50.4 USAGE 

calling sequence: 

call I N C 0 R U ( M ES N 0 , 1 T Y P * M I N ) 

MfSNO = MESSAGE NUMBER OF prompt, 

ITYP = TYPE OF COORDINATE DESIRED 
= 1 FOR LATITUDE. 

= 2 FOR LONGITUDE. 

h in s coopdinate in minutfs, 
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MINIS PROGRAM SPECIFICATION 

51.0 program name- index 

53.1 PURPOSE 

TO ALLOW TUB USER TO CREATE » UPDATE «K DELETE INDEX FILES, 

53 . 2 IDENTIFICATION 

DATE- 5 ^ 26 ^ 7 ^ 

REVISION- 

AUTHOR- C, :J , FARLESS (2Q?>) 883-1778 

COMPUTER- DATACRAFT 6024/3 
LANGOAGE- FORTRAN IV 

CORE SIZE- B37 LOCATIONS (3,5.05 OCTAL) 


51,3 DESCRIPTION 

INDEX ALLOWS THE USER TO cR& A TF * UPDATE , OR DELETE INDEX FUtS WITH 
SUBROUTINE GENRE X , INDEX a$KS FOR THE FIELD NaME THE INDEX 

References » prints out a current status report, asks for the 

REQUESTED A C T 1 ON (GENERATE, OP DATE, OR DELETE) AND THE LEVEL AND NO, 
OF SFGHMF1S, FOR EACH ACTION. THE INPUTS aK'F CHECKED FOR CORRECT 
USAGE. A FILE CANNOT WE G PNG RaT'ED IF IT EXISTS AND CANNOT BE 

updated or deleted if it does not exist, if a file is updated or 

DELETED FOR WHICH FILES OF HIGHER LEVELS EXIST, THE HIGhER t EVELS 
MUST Al-SO RE UPDATED or DELETED, AFTER THE ACTION HaS rEEN 

PERFORMED, A MESSAGE LISTING THE ACTION TAKEN IS PRINTED OU I , THE 

user can then request; ex it (Terminating indfx) OR coni inueinext 

FIELD is ASKED FOR). IF ERRORS ARE MADE nhEM ENTERING AN ACTION, 
INDEX WILL ASK FOR THE ACTION AGAIN, IF U IS ENTERED FOR LfcVEL OR 

number of segments, dr carriage return is fntered for any other 
request, index will a*>k for continue or exit acHon, 


51. 4 USAGE v 

CALLING sequence: 

INDEX (NO ARGUMENTS) 

dialogue : 

PROGRAM 

ENTER FIELD NAME: 

(FIELD N A ME ) HAS X INDEX LEVELS, 
LEVEL no, of entries 
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USER 

(UP TO C CHARACTERS) 


xxxxx 


xxxxx 


OR « 


field; is not indexed, 

ENTER ACTION(GENERATE, UPDATE, DELETE) 'GENERATE* , * UPD ATE.*^$fc*1$fcLETE * 

ENTER INDEX LFVEL: 1 ON 2 ‘ 

IF 2: 

ENTER NUMBER OF SEGMENTS: NUMBER OF SEGMENTS 

IF GENERATE OF update level 1? 

ENTER WORK ARF.A(DISC OR TAPE): 'DISC* OR 'TAPE* 

if tape: 

enter DEVICE NUMBER: DEVICE NUMBER ASSIGNED TO MT 


after action HAS been completed: 
GENERATED index LEVEL X FOR (FIELD NAME) 
UPDATED OR 
DELETED 


NO, OF ENTRIESsXXXXXXX 


EXIT OR CONTINUE ’EXIT* OR ‘CONTINUE’ 

• FOR CONTINUE: PROGRAM RETURNS TO 'ENTER FIELD NAME' 

FOR EXIT: EXIT INDEX 



MINIS PROGRAM SPECIFICATION 

52.0 PROGRAM NAME- I VINT 

52.1 PURPOSE 

REQUEST AND ACCEPT aN INTEGER FROM THE USER’S TERMINAL, 

52.2 IDENTIFICATION 

DATE- ?3 OCTOBER* 1974 

REVISION- 

AUTHOR- W ,L, KEEFER ( 2GS >-883-1/78 

COMPUTER- DATACRAFT 6Q24/3 

LANGOAGt- FORTRAN - I V 

CORE SIZE- 60 LOCATIONS <74 OCTAL) 

52.3 D t S C R I P T ION 

the caller specified message is output requesting the user to 

INPUT AN IN'IEGFR, The INPUT IS ACCEPTED -AND CONVERTED TO AN 
inTeofR VIA ’ I MT Qt;R ' . ERRORS IN The INPUT STRgAM are cited and I HE 
request message is repeated, A PLANK input PUFFER RETURNS A MINUS 
one. A LIMIT is IMPOSE!) ON THE INTEGER RETURNED, 

52.4 USAGE 

CALLING SEQUENCE! 

1 NT = IN I Ml (MESNO, MAXVAL > 

NESMO = MESSAGE HUMBER OF REQUEST. 

maxval = Maximum integer valuf returned, 

I NT = I NTEGER VALUE RESULT , 

= -1 IF INPUT P OFFER IS PLANK 
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MINIS PROGRAM SPECIFICATION 


i 

53 . 0 

program name- 

INI TAL 

, ■■ 


53.1 

purpose 


... 


53.2 

initialize input 
identification 

DATA for 

CREATE, 

ORIGINAL 

OE POOR 

page IS 
quality. 


Hate- 2-19 

-76 




REVISION- 





AUTHOR- C.J, 

FARLESS 

(205) 883*1778 



COMPOTER- DATaCRaFT 6024/3 
LANGUAGE- FORTRAN IV 

CORE SIZE- 560 LOCATIONS (1060 OCTAL) 


53.3 DESCRIPTION! 

the OsfR I s asked whether he wishes to execute on a default mode# 

ORiMANUAl m ODE<ENTe«ING THE INPUT INFORMATION), DEFAULT WILL READ 

the Input information as the first rfcord of the input deckunputd 
src-disc file), manual will request the user to enter the info 
card; the format of The card is as follows: 

COL.U = I # U > OR M ( INITIALIZATION. UPDaTEiMODIFY) 

COL -.2 = L IF LABEL RtCdRD ON RAW DATA TAPE 

COL;a = INFO. AND OP-CaRD DECKS input DEVICE D-ISC# C-ARD READER 
COL.9 = Raw DaTa INPUT DEVICE — C-iT. OR D (CARDS , T A PE , D I Sc ) 

COL V 1 0 » 3 6 = FILE MAME AND EXTFNS I ON < FOR DISC ENTRY Ol\ILV> 

COLV19-24 = NO, OF BYTES IN THE RAW DATA PHYSICAL RECORD, 

COL ,25-30 = NO, of BYTES IN THE RAW DaTa LOGICAL RECORD, 

COL, 31-32 = NO. OF BITS IN THF KEY VALUE ( MAX I MUM OF 40) 

COL 33*38 = NO, OF RAW DATA RFCORDS, 

COL; 40-79 = BIT PATTERN OF KEY VaLUF, 


MERITS DEFAULT INFO, CARD: 

-OL DT 2048 16432 1111 1010 0 000 0 0 00 00 00 00 00 

IF The no, OF Raw data records is left blank. The USER WILL BE 

ASKED To INPUT THFM, 

AFTER THF DATA is nECflneD* THE INFO. D.£ OK IS READ IN AND The Op 

card deck is read in, then thf quads are formed and control is 

RETURNED TO CHFATE, 


USAGE 

CALLING SEQUENCE: 

CALL INITALURK) 

lRR=bRk6K FLAG =1 F UR INPUT ERROR 


MINIS PROGRAM SPECIFICATION 


54.0 PROGRAM MARE- insfkt 

54.1 PURPOSE 

TRIGGER Th? INSERTION OF SaVED text, 

54.2 IDENTIFICATION 

date- ? December 1975 

REVISION- 

AUTHOR- d. ft, S anders 

COMPUTER- DATACRAFT 6024/3 

language- fortran IV 

CORE SUE- 








54.3 DESCRIPTION 

mnssrT’ places the symbol Table pointer for the Saved text’s 
Symbol name in cell 5 of The comtar common area, 

54.4 USAGE 

calling sequence: 

insert (TEXTNAME) 

.textname = name of saved tfxt to be inserted 
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MINIS PROGRAM SPECIFICATION 

55.0 PROGRAM NAME- InTERP 

55.1 PURPOSE 

I " : 

I \i TE RPRET COMMANDS THAT APPEAR IN TriH OUaU TABLE, 

55.2 I I r I C A T I STM 

OATS- 24 JANUARY 1975 

REVISION- 

AUTHOR- 0 . R . SANDERS 

COMPUTER- OCR 6024 

language- fort ram iv 

CORE SUE* 369 LOCATIONS <561 OCTAL > 

55,5 DESCRIPTION! 

a pointer to the first quad in a command is semi' a s an argument to 
this routine, 'next' is sp r to thp next hf^o uu ADf in i he 
immediate mohe The command is automatically executed, a * dll a yEx ’ 
COMMAND CA'USPS THE IMMEDIATE MODE flag to re reset, in the delayed 
MODE ONLY IMMEDIATE SUBROUTINE CALLS ARE M A L)E, ALl- OTHER COMMANDS 
ARp IGNORED UNTIL AN 'EXECUTE' COMMAND IS ENCOUNTERED , 

55,4 USAGE 

Calling sequence: 

CALL I N T pR p < I QST » NFX T > 

IQST = POINTER To ST A RUNG DU ad 
NEXT = NEXT AVAILABLE QUAD, 
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MINIS PROGRAM SPECIFICATION 

56.0 PROGRAM NAME- INTGER 

56.1 PURPOSE 

CONVERT A CHARACTER STRING TO aN INTEGER, 
6,2 IDENTIFICATION 


DATE- 

Revision- 

author- 

compoter- 

LANuUAGE- 


23 OCTOBER. 1974 

R.L.KEEFFR (205)-B83-l778 
DATACRaFT 6024/3 
F0RTRAN-I V 




CORE S I itJ E — 103 LOCATIONS <147 OCTAL.) 


56.3 DESCRIPTION 

’NDIGIT* CHARACTERS are EXAMINED TO BUILD an INTEGER VALUE FROM 
MARAy', 9L ANKS ARE IGNORED, A MINUS SIGN ANYWHERE IN ThE FIELD 
NEGATES THE RESULT EXCEPT IN CaSE OF SUbSEQUENT ERRORS, ANY OTHER 
NON-NUMERIC CHARACTER CAUSES an ERROR RETURN, 

56.4 USAGE 

CALLING sequence: 

I NT = INTGER( IARAY.MDIGIT. IFIRST, IERROR) 

i nt = integer result, 

IARaY S ARRAY CONTAINING CHARACTER STRING, 

NDIGIT = NUMRE'R OF DIGITS in STRING, 
ifirst = first character position in string, 

IERROR = ERROR flag S&T aS FOLLOWS: 

0 FOR SUCCESSFUL CONVERSION, 

1 FOR INVALID CHARACTER 1-N STRING, 
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MINIS PROGRAM SPECIFICATION 


58.0 

58.1 

6.2 


58,3 


PROGRAM NAME- KSCAN 


PURPOSE 


TO SCA M AN INPUT aRKaY AND RETURN THE PROPER CODE FOR T HE 

CHaPacYER found (FOR use by subroutine COORD), 


IDENTIFICATION 


Date* 

Revision- 

AUTHOR- 
COOPOTER- 
LANliOAGE- 
C0RE S 1 EE- 


29 AUGUST 1973 
FORMER MERITS PROGRAM 
M.E.GILIIS <205) 453-5230 
DATACRAFT 6024 
FORTRAN 

75 LOCATIONS <113 OCTAL) 


£ 33 ? 


DESCRIPTION 

Each character is compared aQaINST the allowed list, if FOUND, the 
FUNCTION IS set to The CORRESPONDING coot. IF NOT FOUND, The 
FUNCTION is Set to 9 (ABORT) 

THE ALLOWED characters and CODES aREs 


mot film® 
PAGE BLANK ‘ W1 


D 4 

SPACE 4 

9 ; ■■ 4 

NUMRE^R 5 

. 6 

/ 4 

other 9 


USAGE 

■■■■?■■ '■ ;}■ ■ ■■■■ 

N = ;k s c A N < K ) 

K = CHARACTERS ( I XTR ACTED R Y I XTR ) 
N = CODF PER ABOVE TaRLE 
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MINIS PROGRAM SPECIFICATION 

59.0 PROGRAM NAME- KHMPAfl 

59.1 PURPOSE 

COMPARE TWO BYTE STRINGS OF ANY LENGTH WPG I, MI, MG AT ANY CHARACTER 

position, 

59.2 I U *" P T I F 1 C A T l A N 

0 A T fc • ?3 OCTOHFW, 1974 

Revision- 

AUTHOR* R.l .KEEFFR 1 ( ?Q5 ) -6«3-l 77rt 

CO s 1P 0 TER- OATaCRaPT 6024/3 

L A \‘ G 0 A n E - F'ORTRAM-I v 

CORE SI HE- 54 LOCATIONS <66 OCTAL) 

59.3 DESCRIPTION 

' N ' RYTfc-S or THE TWO CHARACTER STRINGS a R fc COMPARED ONE at A time 

via ’ i x T R • . The function is set ry the comparison, 

59. A USAGE 

calling sequence: 

I FLAG = K'JMPaRC I ARY * I B 1 * J A R Y * JR 1. * NR Y T ) 

I ARY = FIRST CHARACTER ARRAY, 

Gary = second character array, 

181 = FIRST CHARACTER POSITION IN j a RY, 

JBl = FIRST CHARACTER POSITION IN JARY , 

N8 YT = NUMBER OF BYTES TO COMPARE, 

i flag - function value upon return set 
as Follows i 

0 FUR RUTH STRINGS EQUAL, 

+ 1 FOR I A RY ALPHABET I CaI.LY BEYOND JARY. 

-1 FOR I AR Y ALPHABET I CALLY BEFORE JARY, 
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MINIS PROGRAM SPECIFICATION 


60,0 PROGRAM NAME- LfrXCAI. 

I 60.1 PURP15F 

C0NV=RT A N INPUT LP'lc I N T c3 INTERNAL FORM FOR ANALYSIS BY 

s jrrout i N g parse, i 

60,2 IpENT ir ICaT IC5M 

date- i i November 1974 

Rev is i on- 

AUTH.TR- n.R.SANOFRS (205 >-883-1778 

C0MPOTER- DCR 6024/3 

langcjage- fortran IV 

CORE SI EE- 131 LOCATIONS <203 OCTAL) 


60.3 DESCRIPTION 
LEXCAL CALLS GETSmr TO BUILD THE NEXT SYMBOL FROM AN INPUT LINE. 

calls chxsym to insure its existence in the symrol Table or 
Reserved word list and to produce an internal integer code* and 
calls maksen to store the cone in »isen», this process is repeated 
for every symbol in the input line, an error check is made on 
returning from each subroutine called ry lexcal, 

60.4 USAGE 

calling sequence: * 

call lfxcali 1 ary » 1 sen, last, ires wd. ier> 

URY = INPUT ARRAY 

ISEN = INTERNAL SENTENCE ARRAY 

LAST = LOCATION OF LAST ENTRY IN MSEN» 

iRfswd* "reserved word LIST 

I ER ; = ERROR CODES 

illegal symbol 

too many symbols in sfntencf 
too many characters in sentence 
SYMBOL TABLE OVERFLOW 
constant table overflow 
illegal constant, 
constant Table OVFHFiOW 
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MINIS PROGRAM SPECIFICATION 

61.0 PROGRAM NAME- LIN IN 

61.1 PURPOSE 

READ a LINE AND RETURN KEOOESlED NUMBER f»F CHARACTERS, 

61.2 I IjFLT I T | CA T I DN 

DATE- 23 OCTOBER, 1974 

I | | : ' ' 

R&VlSlprJ- 

AUTHDR- R.L.KEEL ER (205>-bfl3-177R 

COMPUTER- DaTaCRaFT 6024/3 
LANGUAGE- FORTRAN- I V 
CORE SHF- 86 LOCATIONS (1,30 OCTAL) 

61.3 DESCRIPTION 

A- LINE is READ in FROM The NORMAL INPUT DEVICE and the FIRST »Nl 
characters arf transferred to the caller »s array, if ?.fcRd 
CHARACTERS were REQUESTED, NO read TaKFS place, THE COMMON rufi-er 
USED FOR INPUT May also re DESTINATION rUFFER, 

61.4 USAGE 

calling sequence: 

CALL LJNI'I :M( I«UFR»MCHaR) 

iRDf-R S DEST I NAT I ON ARRAy L OR READ, 

MCHAR S NUMBER OF CHARACTERS TO READ, 
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62.3 DESCRIPTION 

IF * f ST aPT ♦ IS ONE. THF BYTE COUNT IS READ FROM THE USE w MESSAGE 
FILE AND SAVED IN A DUMMY ARGUMENT. IN ANY CASE, » I RECLN * QyTES 
ARE READ INTO MRUFRt a’ND THE BUFFER IS SCANNED UNTIL A NULL 
CHARACTER is FOUND, BLANKS are stored from that point to The end 
OF ’TbUFR*, and the next AVAILABLE BYTE IN the USER MESSAGE file 
IS STORED IN * I BYTE ' . 

62.4 USAGE 

calling sequence: : t 

call linmes( ibufr, irecln»mfsno, iryte*npyte> 

irufr = input puffer (large enough to hold MREcln* Bytes) 

IRECLN = MAXIMUM LINE SI2E IN BYTES 
MESMO = USfR MESSAGE NUMPER 

IRYTE = BEGINNING BYTE POINTER IN MESSAGE Fn_E 
(INPUT 1 TO INITIALISE THE FILE READ) 

(OUTPUTS POINTER TO NEXT AVAILABLE BYTE) 

(OUTPUTS -1 TO INDICaTf END OF FILE) 

NRYT6 = NUMBER OF RYTES IN MESSAGE 

(NOT T h PE DlSTRUpED BY CALLING PROGRAM} 



MINIS PROGRAM SPECIFICATION 


*>3.0 PROGRAM «A«c- LSBRCH 

63.1 PURPOSE 

Scan I M U F X FILES FOR PHOTOS WITH COORDINATES WITHIN SPECIFIED 
A R F A , 

63.2 I DRNT |'F 1 CA T I fiN 

DaTF- 1 7 SEPTEMBER, 1975 

Revision- adapted from merits sup of samf name 

AUTHOR- R . L .KEF-FFR <20S> B83-1778 

CO^POTFR- DATaCRaFT 6024/3 
LANGUAGE- FORTRAN IV 

CORE S I ?F- 90 LOCATIONS ( 13 ? OCTAL) 

63.3 DESCRIPTION 

The area defined rv the calling arguments, or by the calling point 
plus or sjakjs a tollRa^cf* is -used to search the 'latlon* index 

FOR ^oSSihlF PHOTO CrtVPRAGF, j'F THE SFARUH IS FOR A PUJNI, THE 

Search is p e r k n w m g n for a suUare around thf. point, 

63.4 USAGE 

CALLING SEQUENCE: 

CALL LS.pR.cH ( L AL , LaH ? L H L , LOH , NPOS » L I N'DEX ) 

L A L * t.AH , L'U. * L f1 H - LOWPh AND UPRFR LATITUDE AND SMALLER 

and LARGER longitude , 

WPOS r NUMIJER of PHOTOS FOUND IN AREA. 
l index = aRRav containing index or- latitudes, 


H 
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MINE PROGRAM SPECIFICATION 


64, Q PRAGMA* NA*fc- 
64,1 PURPOSE 


MAKS6N 


64.2 


accumulate internal sentence array 
parse, 

identification 

date- 11 NOVEMBER 1974 


revision- 

author- 

COMPOTFR- 

LaNGOaCE- 


D,R,SaNL)ERS 
OCR 6024 
FORTRAN IV 


to be passed to subroutine 




CORE SIZE- 31 LOCATIONS (37 OCTAL) 


64.3 DESCRIPTION 

MaKSFN CHECKS THE NUMBER OF SYMBOLS IN THE SENTENCE ALREADY. AND 
IF THERE IS STILL ROOM IT ADDS THE NEXT SYMBOL TO THE SENTENCE 
ARRAY, 

64.4 USAGE 

CALLING SEQUENCE: 

call maksen< i sen, last, i entry, ier> 

ISEn = SENTENCE ARRAY 

last = num, of last location used in * I SEN i 

I E n T R Y 5 INTERNAL FORM OF NEXT SYMBOL 

I6R = ERROR FLAG(G IF OK. ? IF OVERFLOW) 
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MINIS PROGRAM SPECIFICATION 

^5.0 program name- merger 


65.x PURPOSE 

MERGE BLOCKS PREVIOUSLY SORTED GY ' G I SORT ' TO CREATE ONE SORTED 
FILL. 

65,2 IDENTIFICATION 

DATE- 29 APRIL. 1975 


REVISION- 

AUTHOR- R , L, KEEFER <205) 883-1778 

CUMPOTER- DATaCRaFT 6024/3 
L A NO 0 A Gt - FORTRAN IV 

CORE SIZE- 1358 LOCATIONS (2516 OCTAL) 


65.3 DESCRIPTION 

the disc file mfilin* is assumed to be broken into *nseg» 
segments or • iPsr-G* items each, the working buffer * RUp * is broken 
into »nseg* sections of «niTm»' items EACH, < Nil M=LUUF/ 1 TmS£/NSEG. 

WHERE MTMS2' = I F IT. I M ( 5 > / N B W AND NEW = NO, OF b YTFS PER WORD), A 
POINTER ( I C U R ( I ) ) is MAINTAINED; FOR -EACH CORF SFqmEnT INDICATING 
the current item of that segment to be merged with the current 
item of each of the othf.r 'nsec segments, an item number 

• 1 T E M N 0 ( j ) ' is MAINTAINED f«R EACh FILE SEGMENT INDICATING I HE 
FIRST HEM NUMBER OK THE NEXT 'NIT M ' ITEMS TO BE KF AD WHEN TH£ 
CORRESPONDING CURE segment is EMPTIED, 

merging is accomplished via a Threaded buffer pointer which 
maintains a pointer to the core segment containing The NtxT 
smallest item, the smallest item (smallest meaning lowest 
magnitude sort kfy) is moved io an output buffer, the pointer : to 
The segment providing the smallest item is adjusted to select the 
next item, that item is compared To the current items of the other 

CORE SEGMENTS, VI a THE THREADED BUFFER POINTERS * THREAD ( 1 ) • , T 0 
DETERMINE ITS POSITION IN THE SORTED LIST, WHEN I T S POSITION IS 
ESTABLISHED. TWg ■ THREAD IS SPLICED to link I;N The N - v- ITEM, 

AS EACH NEW ITEM BECOMES CURRENT, ITS SORT KEY IS EXTRACTED? 
POSITIONED, AND PUT IN A SORT KEY PUFFER FOR CONVENIENCE IN 
SUBSEQUENT COMP aR I SUMS , 

fach time thf last item in a corf segment is moved to the output 

BUFFER AN I/O CALL IS MADE TO REFILL THE CMRF SEGMENT, THt LAST 
READ OF A SEGMENT MAY NOT FILL THE COKE BUFFER AVAILABLE TO THAT 
SEGMENT. IN SUCH CASE. THE UNFILLED PORTION OF THE BUFFER IS 
7 E R 0 E L' . . 

S I Mill A R' L Y » EACH TIMF 'THE OUTPtll BUFFER IS FILLED. IT IS WRITTEN 






MINIS PROGRAM SPECIFICATION 
Tp THE SPEC I F* I Fti OUTPUT FILE OR DEVICE, 


USAGE 

calling sequence: 

CALL **ERGER< IFILINMFIL8T, IPUT,K1,K2.NSeG, IPSEU»dUF#LBUF) 

I F I L I N < 1-5 ) 

C 1 -3 ) 

<4> 

( 5 ) 

I F I L 0 T (1-5) 

p : ki 

NS EG 
I pSfg 
euF 

LRUF 
I PUT 


INPUT FILE DEFINITION ARRAY AS FOLLOWS • 
file name <3A2> 

NR, OF ITEMS IN FILE, 

NO, OF 8-RIT RYTES PER ITEM. 

OUTPUT FILE DEFINITION AS aROVE, 

FIRST BIT NR, OF SORT KEY. 

LAST BIT NO. OF SORT KEY, 

NO, OF SEGMENTS (SORTFQ ARRAYS) IN FILE 
no, of items per segment, 

WORKING BUFFER, 

LENGTH OF WORKING BUFFER 
OUTPUT DEVICE NO, CO FOR DlSK) rl? |S 


40 ' 0K 
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MIN’ IS PROGRAM SPECIFICATION 
66.0 P R *1 G R A M NjAMfc- MESH 
66,3. PURPOSE 

CREATE a MESHED CHARACTER F ROM a FILE DEFINITION THAT WILL HE 
UNJ UUP FOR EACH DATA BASE, 

66.2 IDENTIFICATION 

date- ; 11-26-75 

R fc V 1 S 1 tt N - 

AUTHOR- C.J', FAHLtSS (20b) B0S-177H 

COMPUTER- DATACRaFT 6()?.4/i 

LANGUAGE- FORTRAN IV 

CORE SI7.E- 50 LDC A T IONS (62 OCTAL) 

66.3 DEScR ! P T I UN 

the characters .-in the Requested file def i n i t i on ( nam ) are meshed 

USING the FOLLOWING aLOORIThIMJ 

X = ( x , A HR , CHAR) .ROT AT, 1 

X = X .AND, * : 7 7 

6b. 4 USAGE 

CALLING sequence: 

X = MESH (MAM) 

X - integer return he character 
NAM = FILE DEFINITION 
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MINIS PROGRAM SPECIFICATION 

67.0 PROGRAM Na m E- mfsman 

67.1 PURPOSE 

provide ca 3 ability to ado, deifte, Replace » list, pack, oh change 
: NUMBERS OF USER messag c s, 

67.2 identification 1 

OATE-r 21 NOVEMBER, 1974 

;• ‘ ,6V|S,nN - 

AUTHOR- R , L . KEEFER < ?05 >-633-1778 p£ 

COMPUTER- OATaCRaFT 6024/3 
LANGOaGE- FORTRAN IV 

CORE SI2P- 1667 LOCATIONS <3203 OCTAL) 


67,3 DESCRIPTION 

»MFS«aN* May be entered IN a CONVERSATIONAL MODE FOR any of the 
MESSAGE MANIPULATION features, or under PROGRAM CONTROL TO delete 
OR WRITE ANY one message, »ADD* MAY ADD A SPECIFIED MESSAGE OR 
Ta*e the first available message number. in Replace or write 
OPERATIONS The MESSAGE IS WRITTEN in place of the PRIOR Message if 
room is available, the calling operation type code is checked for 

a legal number. if legal, the apprctpria te operation is 

STARTED. < I 0P= 1 - A DD » 2-REPLACE, 3-DELETE* 4-EXlT, 5-PACK. 6-LlST, 

7 -change , 3-write, other-emtfr dialog) illegal op codes enter the 

DIALOG ARGUMENT SETUP SECTION, THE AUD OPERATION, AFTER CHFCtflNG 
FOR OR ASSIGNING a LEGAL MESS A GE NUMBER* REcJUeS TS and ACCEPTS THE 

new m essag c into Scratch common ’rfuse', excess blanks are packed 
out and the message, it*s numbfr, and it's length arf transferred 
To THE message FILE, upon INPUT OF a RLaNK line the message file 
length is adjustfd and the dialog IS Resumed, 

for ’replace ' * The old message is located and sized, the new 
MESSAGE is input and measured TO DETERMINE IF it will Fir IN the 
OLD MESSAGE area. The old MESSAGE IS DELETED AND THF NEW MESSAGE 

REPLACES it or adds TO the end of THE MESSAGE file, 

the ’write* operation is the same as The Replace operation except 
the new message is in the calling string, also, if the first word 
of the new message is zero » the old mfssage is deleted without 
replacement; there is no user interaction for the write 
operation,. 

The ’DELETC OPERATION checks for a legal message NUMBER, zeroes 
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77 


OUT THE MESSAGE AMD THE INDEX ENTRY# AND AUTPUIS AN 

A C K N ') W L E D G c M F N T MESSAGE, 

'EXIT' CLOSES THF MESSaGE FILE AMD EXITS THE ROUT I M E , 

’PACK' DUrS IN MESSAGE NUMBERS FOR EACH ENTRY OK THE INUbX# READS 

and rewrites the message file* skipping all *ero locations, and 

REGENERATES THF INDEX JjJ.Y RESCANNING THE MESSAGE FILE, 

’LIST' OUTPUTS ALL MESSAGES AND THEIR NUMBERS BETWEEN THE 

SPECIFIED LIMITS, 

•change* replaces the given old MESSAGE NUMBER WITH THF NEW number 
and MOVES The INDEX POINTER ACCORDINGLY, 


USAGE 


CALLING SEQUENCE* 

CALL m e s M a IM < 8 u f F R » M E S N 0 , N C H A R I I C) P T i\| > L 

BUFFR = 80 CHAR MESSAGE 'BUFFER rtJ'R 'WRITE*, 

MFSno = MESSAGE To be aFFFCTED, 

MOHAN = NO, CHARACTERS I IV BUFFER FQR 'WRITE', 

I OPT IV = USER SELECTED OPERATION SFT aS FOLLOWS: 
= 1 FOR ADD #*'. -yL , 

: ■ 2 FOR REPLACE 

3 FOR DELETE 
A FOR EXIT 

5 FOR PACK 

6 FOR LIST 

7 FOR CHANGE 

8 FOR WRITE 

any other value to enter dialog. 
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MINIS PROGRAM SPECIFICATION 


66.0 PR*1G8AM MA ME * MESOUT 


6h.l PURPOSE 


OUTPUT SYSTEM OR USER MESSAGES ON USER'S TERMINAL 
66.2 IDENTIFICATION 


DATE± 11 NOVEMBER* 1974 


REVISION- 

AUTHOR- R.L.KEEFER (205I-6B3-177P 

C0MPOTER- OATACRaFT 6024/3 
language- FORTRAN IV 

CORE SUE- 619 LOCATIONS <1153 OCTAL) 



6b, 3 DESCRIPTION 

The calling argument is tested to determine if the message is a 
system 1 m g s s a ge ( a r g > 1 o o o ) or a user message, (i-idoo ) ifo the 

MESSAGE IS A SYSTEM MESSAGE* THE SYSTEM FI|_E INDEX IS READ Y OR THE 

message start location In the file, for user messages, the index 
entry is IN CORE. THF START Of The MESSAGE is CHECKED to DETERMINE 
the message length (first word of message) and the left hand 

MARGIN! NUMBER OF LEADING BLANKS), THE MESSAGE IS ALTERNATELY Rb AD 
INTO TWO ISO BYTE DUFFERS WITH THE NEXT RUFFER BEING FILLED FACH 
Time THE CURRENT line extends beyond The CURRENT BUFFER, Each LINE 
To BE OUTPUT IS SCANNED TO FIND The NUMBER OF RLANKS AND THfc LAST 

non-blank character, the line is transferred to the i/o common 

BUFFER WITH BLANKS INSERTED TO R I GET- JUST I F Y ALL BUT THE LAST LINE 
OF each MESSAGE, 


63,4 USAGE 

calling sequence*’ 

call mescut (MFSNUM) ' 

mESNUM = MESS agf number to be output 

= 1-100D FDR USER SUPPLIED MESSAGES 
=1001 and up for SYSTEM MESSAGES, 
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MINIS PROGRAM SPECIFICATION 

6 9 • P ? R 0 G R A M N A M b - hi I .JDt V 

ft 9 , 3 RURPOSF 

TO 'CREATE T ri E l. A T L D F I L F AND UJN[jFX F ILF FOR A MfcRjTS UaTa RASE 
CRRaTF hum, 

ft9.2 I 0 ^ AJ T I F* I C A T 

DATE- 3-9-76 

• ' ■■* 1 ■ •’ 

REVISION- 

• j . • 

AUTHOR- C.J.FARLESS ( 205) 883-1770 


C0MPOTFR- DaTaCRaFT f>0?q/6 
LANGUAGE- FORTRAN IV 

CORF SUE- 876 LOCATIONS <uutl OCTAL) 


69.3 DESCRIPTION 

aSSUMMINC That The DAT A RA^E HaS BFeN MERGED AND lS READY for use, 
LaT and LOV aRF EXTRACTED FROM each DaTa «aSE RECORD Making ONE 
LATlCN R F C 0 R n FOR EACH DATA base RECORD, LAT is BIASED by 5400 
MI MUTES (9C DEGREES) AND ALL. VaL-UES OF LaT LESS T'HaN 0 OR UREA I ER 

than ioboo are sft to 5400 minutes, lon is biased by ioboo 

M J NUT ES ( 3 H 0 DEGREE.^) A^D ALL VaLU£ 8 OF LON LFSS THAN 0 OR oRbAlER 
THAN 21600 ARE SET TO 1 0800 MINUTES. LAT IS DIVIDED lNl'O 2 WORDS, 
La Tq ( L.A T I T UQB IN DEGREES) aND LA'TM (La I I T U|jF MINUTES), THESE VALUES 
ALONG WITH THE RFCORD MUMflFR ARE PACKED INTO 48 PITS AS FOLLOWS: 

BIT 0 = n 

BIT 1-9 = LAID 

OH 9-23 = LUN 

BIT 24-29= LATH 

BIT 30-47= RECORD NtJMBER-1 

LaT MUST BE FIFLD m UMbFR 4 AND LOn MUST PE FIELD NUMBER 5, THE 

Resultant pile is sorthj on bits 0-23 and stored on disc as the 
Latlon file. 

The ■') index file cool a i vs ird entries fach corresponding io i he 
entry mumlhr-i number of degrees, the la 1 lon file is searched, 

EXAMINING LaTd FOR i HE FIRST HfC m K» r, F EACH DEGREE 1 NcRENEN I a T I ON , 
ThlS RECORD M U M p p R I S WRITTEN AS THE ENTRY OF THE FILE, IF THERE 

is wo latldn record of a certain number of decrees, the e n i r y is 
set to the record number of the last entry, 

u Index record u =o degrees entry-pecurd number o i =1 degree 
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sRECORD OF THE FIRST LATLflN RECORD OF 1 DEGREE LATITUDE , . 

. 17R =178 DEGREES RECORD NUMBER OF THE FIRST RECORD WITH 

DEGREES LATITUDE, 179 =NUMBER OF LATLflN RECORDS*^ 


usage 

CALLING SEQUENCE 

CALL MINDEXC IWDEV) 

IWDEV=ScRaTcH AREA DEVICE NUMRER Q=DISC OTHER = TaPE 






t • 

178 
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MINIS PROGRAM SPECIFICATION 

70.0 PROGRAM NA w E- MrtVOUT 

70.1 PURPOSE 

wave THE GIVE N ITEM to an OUTPUT BUFFER AND WRITE THE OUTPUT 
PUFFER IF FULL, 

70.2 IDENTIFICATION 

DATEr ]29 APRIL, 1975 

I ' 

revision- 

AUTHOR- R.L.KEFFER (?05>-683-i778 

COMPUTER- 1 OATACRaFT *024/3 

language- fortran IV 

CORE SIi*E- 1,92 LOCATIONS (300 OCTAL) 


70.3 DESCRIPTION 

the presented item is transferred to the output buffer, if the 
output BUFFER is TULL* IT [S wR I T TpN TO THE SPECIFIED OUTPUT 
Devi ceU out), if the number of words per item, ’mwdS', is euuai. to 
hero, the current contents of the f.ufffr are written and THt file 

• is CLOSED IFOR DISK) OR AN END OF FILE IS WRlTTtN (OTHER DEVICES), 
The ITEM COUNT (KOU.sIT) is 1 NCRcmenTED for each ITEM TRANSFERRED 
and RESET to ONE AFTER EACH PUFFER WRITE. IF ThE NUMBER OF WORDS 
PER ITEM is NEGATIVE, ThE ROUTINE IS I N I T 1 A L I 2FD , 


70.4 USAGE 

CALLING SEQUENCE: 

CALL MOV OUT < I TEM , ! ARGS , HUFF > 

ITEM = ARRAY TO BE MOVED TO BUFFER, 

BUFFER = OUTPUT BUFFER, 

I ARCS = WORD ARGUMENT ARRAY SfcT AS FOLLOWS I 
(1-5) " OUTPUT FILE CONTROL BLOCK, WORDS 
1-3 = F HE NAME ( 3 A2 ) WORD 4 = NO; Of 
ITEMS IN FILE, WORD 5 = NO. Of 6-8 IT 
BYTES PER ITEM, 

(6) = I OUT , . OUTPUT DEVICE ASSIGNMENT, 

n FOR DISK. 

(7) = owns ,. .NUMBER of WORDS per item, 

'■= n TO WRITE LAST PUFFER AND AN EOF, 

-no. of words per item m initialise, 
(a) = MX I Til . , .MAXIMUM number of items to 


B- 82 


STfltfg IN ’BUFFER', SET RY USER 
PRIOR TO FIRST CAL * SET UY HOVflUT 
TO TOTAL NO, OF ITEMS MOVED 
AFTER AN 60 F CALL, 
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MINIS PROGRAM SPECIFICATION 

71.0 PROGRAM NAMfc- NAMLST 

71.1 PURPOSF 

Tfi CRPaTF and M A N A P 6 NaMFLISTh HBaHF.P* FORM A T,aND SaVETEXT J- J L E S> , 

71.2 1 DF/vT I F | CA T I hn 

DATE- 11-15-7‘i 

REVISION- 

AUTHOR- C.J, FaRLESS 1 (2l)b> 883-1778 

COMPliTFR- DATA'CRaFT 6024/3 

LANGUAGE- fortran IV 

CORE SI 2 F- 


71,3 DESCRIPTION 

This program makes the necf.ss a ry assignments to use the message 
manager to create aM) maintain title files, a file containing the 
TiTlfSi The corresponding syMyni. type, and the associated message * 

number is also maintained,- this file contains, along with i me 

namelist titles, the save-text titles and the format titleso-or 

both HEADERS and Da, Ta FORMATS) . EACH RECORD OF THE FH-E H A S 6 

words in it, words i thru 4 contain an h charactfr(maximlim) title, 

WORD c j CONTAINS the SYMBOL type. word 6 CONTAINS the message 
N U M R E R ( 2 0 1 - 3 fl U > , A TITLE CAN nb ADDED TO THE FILE* RFPLACcDi HE - 

DELETED E lv ON THE FILF* OR MODir IHESE FUNCTIONS A RE PERFORMED 

Ry the message manager ( mesman ) , 


71,4 USAGE 

C A L 1. 1 N G - S fe D u E N C E 5 

(user of oldmaN) 

REQUIRED FILES: 

file for titles: 

F 1 Lb DEF I N 1 T ION; 


\ 

NAMELIST 

header n 

format 

SAVE TEXT 

~i 

i 

XTITLECX is THF MESHED CHARACIER) 

I l)FF ( 23. > - ! DEE ( 25 > i 

I DEF ( 23 “23 ) = X I ITLfc 
I DEF ( 24 > = ?>jf) , OF RECORDS 

1 
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IDEF(25)=6*NBW 

FILE FORMAT.! 1 RECORD — 6 WORDS 

WORDS ( 1-4 ^-NAMELIST, SAVE f EXT# OR 

format title 
WORD 5— SYMBOL TYPE 
llsNAMEL I ST 
12sHEADER FORMAT 
13=DATA format t 

14=SCHEMA 

WORD 6— MESSAGE NUMBER 

TITLE MESSAGES* USER MESSAGE F !LE < IUEF <6-10 > > 
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72.0 

72.1 

72.2 


72.3 

72.4 


MINIS PROGRAM SPECIFICATION 


PROGRAM NaML : - NORM 
PURPOSE 

RIGHT JUSTIFY TEXT, nb'LETlNG TRAILING BLANKS, 
I D C NT IF ICaTION 


DATE- 
REVISION - 
AIJTHOR- 
COMPOTFK- 

lamgUagE- 

CORE S I r F: - 


7-9-75 

C, J. FARLF.SS (20‘5> 8B3-1778 
HATaCRaFT 6024/3 
FORTRAN IV 

75 LOCATIONS (113 OCTAL) 




RESCRIPT ION 

for the requested number of characters, text is right justified 

DELETING ANY TRAILING PLANKS, 


USAGE 

CALLING SEQUENCE: 

call NORM < I A h’ A y , N B Y T E8 ) 


I ARAY 
N R Y T E s 


FIRST wHRD OF ARRAY TO RIGHT JUSTIFY 

mo. of characters in The array to right jusiiey 


MINIS PROGRAM SPECIFICATION 


73, U PROGRAM NAME- ,1 OUTPUT 

73.1 PURPOSE 

OUTPfIT REQUESTED FIELDS AND VARIABLES OF RECORDS WITHIN A GIVEN 
SET, , 

73.2 IDENTIFICATION 

PATE- 7-3-75 

REVISION- 

AUTHOR- CATHY j, FARLESS l?05) 883-1778 

C0MPOTFR- DATACRAFT 6024/3 

LANGUAGE- FORTRAN IV 

CORE SlifF- 1538 LOCATIONS <31)02 OCTAL) 


73,3 DESCRIPTION 

FOR A GIVEN SET, FIELDS AND VARIABLES ARE OUTPUT IN COLUMN FORM 
with A HEADER ABOVE EACH COLUMN, THE HEADER IS 08TAINEU FROM THE 

FIELD TITLES UNLESS THE FIELD WIDTH IS DETERMINED TO BE 6 
CHARACTERS OR LESS, IN WHICH CASE ThF FIFLD NAME IS USED, FOR 
VARIABLES, THE SYMRdL NAME IS USED, THE FIELD OUTPUT FORMAT STOKED 
IN CORF IS USED FOR OUTPUT OF FIELD DATA AND THE FORMAT FID, 2 IS 
USFD FOR VARIABLES. 

OPTIONAL USER SPECIFIED REPORT HEADERS* LINE FORMATS, AND 
NAMELISTS MAY BE invoked BY NAMING SAME IN THE OUTPUT pALL 

STATEMENT, HEADERS AND FORMATS MUST BE FORTRAN FORMAT 
SPECIFICATIONS COMPATIBLE WITH 1 HE HOST MACHINE FORTRAN, VARIABLE 
LISTS MUST HAVE THF SAME DaTa TYPES IN THE SaME SEQUENCE AS 
SPEC IFIED IN THE FORMAT STATEMENT WHEN BOTH ARE REFERENCED IN I HE 
SAME CALL TO OUTPUT, 


73,4 USAGE 

call ing SEDUFNCE : 

OUTPUT ( SETNAMP , ARG1 , A R G 2 , , , , . ARGN ) 

OUTPUT (SET NAME, ALL) 

OUTPUT ( SET NAME , HF.DNAHF ,L I STMAM ,FMATNAM ) 

OUTPUT (SETNAME.l I ST MAM) 

OUTPUT < SET NAMF , HEDNAMF , FM A'i NAM , ARG1 » ARG2 » , . , » ARGN) 

SFTnAmE s NAME of SET Tfi OUTPUT 
ARGl = FIELD OR VARUbLE TO OUTPUT 

ARG2 s hi « III 


OR 

OR 

OR 

OH 

OH ETC, 
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ARRW 



FMATMAM 

MfrOMME 

L1STWAH 


hi ; in in 

THU ARGUMENT 'ALL* MILL CAUSE ALL FIELDS IN 
DATA RASL- rtl HE OUTPUT 

NAME OF PREDEFINED FORMA! SPECIFICATION. 
MAMF OF PREDEFINED HEADER SPECIFICATION, 
NAME OF PREDEFINED variable LIST, 




THE 



n 

i 




~T 

» 
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MINIS PROGRAM SPECIFICATION 

i" 

• ■ -■ - . .■ ' ; : -v . 

74. 0 PRAGMA* NAME- PACDAT 

74.1 PURR ASF 

PACK A GIVEN NUMBER OF BITS IN THF DATA BASE RECORD AT THE 
requested pit NUMBER, 

74.2 IDENTIFICATION 

HATE- 11-20-75 

REVISION- 

AUTHOR- 
C6 M P0TER- 

langoage- 
CORE SI2E 

74.3 description 

The STARTING and ending bit NUMBERS are CALCULATED, IF the data is 
left justified <ijust=i), the starting bp' number is bit eero, the 
data is then extracted form the data value, array one bit at a 

TIME; THE NEXT BIT NUMBER AETpR THE LaST BIT USED IS RETURNED IN 
I BIT, 



74,4 USAGE 

calling sequence: 

call PaCDaTC IVaL.NBITS, ! ARRAY. I BIT* I JUST) 

IVAL =OATA VALUE array 
IVIRITS SNO, 0 F BITS TO PACK 
IARRaY=DaTa BASF FEC0RD ARRAY 
I R I T =F1RST RIT NUMBER 
I JUS T =0 RIGHT JUSTIFIED IN 1 ST NOKr? 
=1 LEFT JUSTIFIED IN 1ST WORD 




MINIS PROGRAM SPECIFICATION 

75,0 PROGRAM NAME*. PACKER 


75.1 PURPOSE 

pack the field value and data rase record pointer into one entry 

OF A FIRST LFVFL IMUFX FILE, 

75.2 Identification 

DATE- 11 MARCH 1975 

revision- 

author. o.r.samders 

COMPUTER- DCR 60 ?'j 

language- fortran iv 


CORE SUE- SI?b,,. 154 LOCATIONS (232 OCTAL) 


75*3 DESCRIPTION 

the field value for mfldno* im data ease record number ’Ientky’ 

IS STORED RIGHT JUSTIFIED IN IhE FIRST * N B E L D ’ B 1 T S Or ’I ARRAY’, 

» I ENTRY ' IS STORED RIGHT JUSTIFIED IN THE next fNBENTt BITS OF 
M ARRAY’. 

75.4 USAGE 

CALLING SEQUENCE: 

call packer ( i array* nwords, i fntry , mbfnt t ifldno#nrfld) 

IARRAV = DESTINATION ARRAY (1 BY ’NWfiRDS') 

NWORDS = NUMBER OF WORDS IN 'I ARRAY' 

1 ENTRY = Data BASF ENTRY op SOURCF record 

NRENT = NUMBER of bits in ENTRY pointer area 
IFLDNO = FIELD NUMBER OF SOURCE FIELD 
MBFLD = NUMoER of bits im SOURCE meld 
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MINIS PROGRAM SPECIFICATION 


76. u program name- parse 

76.1 PURPOSE 

PR3VTDF A GENERALISED FORTRa* SUBROUTINE WHICH FALLOWS COHtN AND 
OSTLieq’S N3NRFCUHSIVE PARSING WITH RaCKTRaCK METHOD (ALGORITHM 3i 
COMP'. SURVEYS* VOL. 2 NO. 1# MARCH 1970, PP. 65“ 82). 

76.2 IDENTIFICATION 

date- 3 October 1974 


revision- 

author- n.R.SANDFRS (205 >-883-1778 
COMPUTER- DCR 60?4/3 

LANGUAGE- FORTRAN IV 

CORE SI2F- 546 LOCATIONS (1042 OCTAL) 




76.3 DESCRIPTION 

parse accepts a sentence in the form of a string of integer values 
which ARE PRODUCED BY the LEXICAL SCaNNFR (SEE LEXCAL 
documentation), the algorithm mentioned above is used in 

conjunction with a syntax graph like those discussed in the same 
P A PER to CONSTRUCT A TREE APPROPRIATE for the input sentence, IF a 
Syntax ERROR IS DETECTED an ERROR FLAG IS $PT AND CONTROL IS 
returnfd to t he calling PROGRAM, 

76.4 USAGE ' 

CALLING Sequence: 

call p arse ( I SEN. la ST. I stack* is, i SGR, I ER) 

I sen = (N BY 1) ARRAY CONTAINING INTERNAL SENTENCE FORM 
LAST = NUMBER OF SYMBOLS IN SENTENCE 

ist a ck= (n by 2 ) array containing tree resulting from parse 

IS = NUMBFR OF ELFMENTS IN » ISTACK » 

I SGR = (N BY 4) ARRAY CONTAINING SYNTAX GRAPH ; ^ 

I ER = FRROR FLAG: 7 FOR ERROR, 0 FOR NORMAL 
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MINIS PROGRAM SPECIFICATION 
77.0 PROGRAM MAMC- PARVOC 


77.1 PURPOSE 

CHECK THE symbol TaBLE for THE EXISTENCE OF VARIABLES OR CONSTANTS 
DURING PARSE, 


77.2 identification 

Hate- 10 OCTOBER 1974 

REVISION-* 


AUTH0R- 
00M.P.0T6R- 
LANGUAGE- 
CQRE S 1 jf E - 


0,R, SANDERS 
OCR 6324 
FORTRAN IV 

103 LOCATIONS ‘(267 OCTAL) 


77.3 DESCRIPTION 

PaRVOC accepts one VaL field FROM THE SYNTAX GRAPH and one SYMBOL 

table pointer from the sentence being parsed, the val field 

CONTAINS A NEGATIVE VALUE INDICATING WHETHER A SFT NAMF OR A REAL 

name ano/or integer variable and/or constant is allowable as a 
terminal symbol, paRvOc Returns a flag which indicates a 
M A T r;H/M I SMaTc.H OF THR SYMBOL TyPE WITH THaT IN THr SYMgOL TaRLE, 

77.4 USAGE 

CALLING SEQUENCE! 

/ 

CALL PARVOCt I VAL . ISWSMB.M aTCH) 

ival = val field from Syntax graph (negative) 

iSVSVri.a SYMBOL POINTER FROM SENTENCE (NEGATIVE) 
match = flag: + s m a T c H » -sMISMATCM 


N 0 I F : 

NEW VAR I A RLE* SR T > SUBROUTINE AND FIELD NAMES ARE 
ASSIGNED TYPES IDO GREATER THAN THEIR NORMAL TYPfS SO THE 
SYNTHESISER CAN DETrcT AND CHECK THEM FOR CORRECTNESS, 
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MINIS PROGRAM SPECIFICATION 


76.3 PROGRAM NAME- PAINT 

76.1 PURPOSE 

FIND ALL MERITS PHOTOS A SSOCIaTED WITH A PAINT OR AREA, 

73.2 IDENTIFICATION 

hate- 17 sepfmper. io/5 

REV I $ I AN- 

AJThIR- R. L , KEEFER (205> 683-1778 

COMPJTER- DATACRAFT 6024/3 
LANGUAGE- FoTRAN IV 
CORE S I *? E — LOCATIONS (730 OCTAL) 

76.3 DESCRIPTION 

the coordinates of the point or aRfa are accepted from the user 
and used to interrogate Thf LaTLON index of The MERITS data base, 
ip the querry is for a point* the found list of candidaies is 

CHECKED FOR ACTUAL COVFRaGP OF THE POINT AND THE POINTERS fO 1 HE 

photos covering thf point a Re saved in the ncand file, if the 
QUERRY is FOR an aR£a» all found CANDIDATES are s a ved IN THE NCAND 
filet 


73,4 USAGE 

calling sequence: 
point 
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MINIS PROGRAM SPECIFICATION 


79.0 

79.1 

79.2 


79.3 

79.4 


program name- PRCFNT 
PURFfl.SF 

TO COMPUTE A PFRCEMTaGF VALUE GIVE M A NUMERATOR AND DENOMINATOR, 

identification 

PATE- 1 . 2 - 22-75 

REVISION- 

AUTHOR- c.j, earless (205> 8«3-i778 

COMPUTER- PATACRaFT 6024/3 

language- fortran IV 

CORE SI2F- 70 LOCATIONS (106 OCTAL) 

DESCRIPTION 

given the INPUTS, NUMERATOR ANn DENOMINATOR, the following is used 
T o CALCULATE THE percent value: 

P R C F N T s XN U M / DE N * 1 0 0 n , 0 . 

USAGE 

calling sequences 

X, = PPCFA'T ( xnum. den > 

X = RETURNED VALUE of pepcfnt 
XMJM = NUMERATOR 

den = denominator 


MINIS PROGRAM SPECIFICATION 


80, 0 PROGRAM Na*E- PRNTER 
PQ.l PURPOSE 

set output listing device to the printfr, 
eo.2 identification 


DATE- 

REVISI0N- 

authir- 

C0MPOTER- 

langOage- 


26 FEBRUARY, 1975 

R.L.KEEFFR (205)-883-1778 
DATACRAFT 6024 

fortran 


CORE SIZE- 10 LOCATIONS (12 OCTAL) 

80.3 D£SCR I PT I 0N 

The OUTPUT LISTING DEVICE SPECIFIED IN COMMON I0ARAY aT 
IS S!=T T 9 THE PRINTER (DEVICE NUmbfR 6), The NO, OF 
PAGE(NLPP) IS SET T0 60 < I B(JF ( 139 > ) , 

90.4 USAGE 

CALLING SEQUENCE? 

PRNTER 


^TGINf&Ii p®gb 

00$. QTJAI333S 


Ji} C 


I8UF(135> 

LiNhS per 
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MINIS PROGRAM SPECIFICATION ’ 

PI. .0 PROGRAM NAME- PROCSS 
Pl,l PURPOSE 

to process the haw data records into data base records, 

81,2 IDENTIFICATION 

Date- 2-19-76 

REVISION- 

AUTHOR- C « J . FaRLESS (205) 8B3-1778 

COMPUTER- DATACRAFT 6024/3 
LANGUAGE- FORTRAN I V 

CORE SHE- 150 LOCATIONS <2?6 OCTAL) 

HI . 3 DESCRIPTION : 

each raw oaTa record is read in and stored in the element array, 
then the quads are executed for each definfd field to create the 
Data rase record, after this is complete* the control is returned 
T o create. 

I 

81,4 USAGE 

calling sequence * call process < irk, irec) \ 

IKR=EHROR flag =1 “ERROR 

IREC-MO, f)F RECORDS CkEATED j 

. “**T 

; . ■ ' . . i 


: '• • ' \ 

, ;■ ' - : ■ . i 
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MINE PROGRAM SPECIFICATION 

! 

32.0 PRAGMA* NAME- QDFORM 

02.1 PURPOSE 

TO CREATE THE NECESSARY QUADS FOR AN OPERATION CARD OR RECORD, 

02.2 IDENTIFICATION 

DATE* 30-15-75 

revision- 

author- C.J, FARLESS (205) 883-1778 

COMPUTER- DATACRAFT 6024/3 

LANGUAGE- FORTRAN IV 

CORE SI2E- LOCATIONS <2762 OCTAL) 


32.3 DESCRIPTION 

TO CREATE THE NECESSARY QUADS FOR AN OPERATION CARD, FIRST THE 
ARRAY CONTAINING THE 0 D ERA T I ON ( I L I NE ) IN ASCII FORM IS SCANNED BY 
ThF ROUTINE ' DFLBLK ’ TO REMOVE ALL BLANKS AND RETURN THE NUMBER OF 
CHARACTERS IN THE OPERATION. THESE COLUMNS ARE THEN SEARCHED f- OR 

thf equals symrolu), saving the column number before and after 

IT, THE INTERPRETING PROCESS BEGINS WITH THE OPERAND FIELD 
(STARING IM THE COLUMN AFTER THE EQUALS SYMBOL), THE FIRST SYMBOL 

IS SCANNED (SCAN) AND ITS SYMBOL TYPE RETURNED AND THE REQUIRED 
CODES STORED IN THE QUAD. THIS PROCESS CONTINUES UNTIL ALL SYMBOLS 
IN THE OPERAND FIELD A*D RESULT FIELD HAVE BEEN IDENTIFIED AND THE 
CORRESPONDING CODES STORED IN THE QUADS, THE FOLLOW I NG FORMS ARE 
ACCEPTABLE! 


result field operand field 


INTERIM = 
FIELD NO, OR 
field name 

III = 

,|| s 

111 = 
lii = 

III = 

HI ; * 

Hi * 


iH 


OPERAND 



OPERAND OPERAND 

OPERAND ,SQ, 

( SO , ♦ , - ) OPERAND : 

OPERAND ,S+, N OPERAND MUST BE 1ST OF N 

OPERAND ,S2, OPERAND • N ELEMENTS , F I ELDS , OR 

INTERMEDIATE VALUES, 
OPERAND .V. OPERAND ] 

OPERAND , CH , N N=NO, OF BYTES TO TRANS- 

FER, MAX N=132, OPERAND 
CANNOT RE A FIELD NO, 
OPERAND! ,CV, OPERAND? CORRESPONDING VALUES, 

OPERAND! CORRESPONDS TO 
OPbRD 2, RESULT MUST HE AN 
AN INTERMEDIATE VALUE, 
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Ill S Of'fcrtflNi , •? r» , 1.1 rt'nAI'l? W IM OCH<'Ki<-> I Mf> u i t Ui» wym,u 

SPONDING VAlUf- FOR 
OPtRAWUl To G&T VALUE OF 
RESULT, 0 P E R A i\' D 2 
INDICATES THE FIHST OF N 
ELEMENTS IN THE T ABLfc , 
OPERAND? MUST BF AN I MIEN 
MEDIATE- VALUE, 


flppR A NDb = ELEMENT NUMBER , FIELD NUMBER , INTERMEDIATE VALUE • 1 NT'FG.ER 
CONSTANT, real CONSTANT, OP CHARACTEFMFX, I 'AM. UNLESS OTHERWISE 
STATED, TWfc U'JADS FORMED F OH EACH OPERA T I ON ARE ARRANGED AS 
FOLLOWS: 


WORD 1 
WORD 2-3 


WORD 4-5 


rdPERATlON CODE 
s 0 p E R A N 0 S 

QUAD NUMBER s NEGATIVE NUMRbR FROM -1 TO -1000 

WHfN AN INTERMEDIATE VALUE IS REF- 
ERRED TO AS THF FIRST ELEMENT Oi AN 

array or table, this will re expressed 

AS THE INTERMEDIATE VALUE NO, + 4000, 
ELEMENT r UNDER = POSITIVE NUMR6R FROM 1 TO 500 
INTEGER CONSTANT = THF LOCATION OF THF VaLUF IN 

ICON + 1000(1001 TO 1100) 

REAL CONSTANT = THE LOCATION OF THF. VALUE 

IN ICON + 2000(2001 To'2100) 

FIELD NUMBER = FJFLD NUMBER + 3000 (3001 TO 3200) 


CHARACTERS r THF LOCATION OF THE CHARACTER IN ICON 
+2200(2201 TO 2300) 
rfsult of the OPERATION 


ALL RESULTS WILL OF STORED IN WORDS 4 A N 'D 5 IN FLOATING POINT 
EXCEPT IN THF CASE nT TEXT AND CHAR. TRANSFER, TEXT TRANSFER 
RESULTS WILL BE STORED IN THE TRANSFER ARRAY IN REUSE, 


WHFN A FIELD NUMBER OR FIELD NAME IS FOUND IN THE RESULT FIELD, 
Two QUADS WILL RE FORMED , THE FIRST QUAD WILL CONTAIN THE 
OPERATIONS DEFINED ON THE OPERATION CARD. THE SECOND QUAD WILL BE 

arranged AS follows: 

WORD 1 s 73 

WORD 2 = F I F L 0 NUMBER 

WORD 3 = p K F V I U U S UUAD NUMBER ( NEC AT I VE ) 

WORD 4-5 UNUSED 

AT this POINT THF FIELD IS CONSIDERED DEFINED AND WHEN THE QUADS 
ARP EXECUTED 7h£ 73 QUAD WILL CAUSE THE FIELD TO BE STORED OM THE 
DATA BASE RECORD, ANY OPERA T ION CARDS FOLLOWING WILL REFER TO I HE 
NEXT FIELD, 

TWO QUADS ARE FORMFD FOR THE S? AND SH OPERATIONS, THE URST WILL 
CONTAIN THE TWO ARRAY POINTERS, AND TtlF SECOND WILL CONTAIN THE 
MUMBFR OF ELEMENTS TO SUM , 

EXAMPLE* 

OPERATION CARD: Fin=E4 S? F20 « 10 


r'_: sssjsss rrrn 7. 


MINIS PROGRAM SPECIFICATION 
^E^LILT ING QUADS! 

WORD 3 WURD 2 WORD J WORD 4 

8 SR 1? 4 20 0 

« sr l? iuni o o 

CONSTANT TABLE LOCATION 1 a 10 

OPERATION CODES: 


0 a 

ASS I 

1 a 

♦ 

2 = 

m 

3 a 

• 

4 s 

/ 

5 = 

• • 

6 a 

.so, 

7 = 

• s* » 

8 a 

,S?. 

9 a 

t *J • 

10 = 

;ch, 

11.= 

,cv. 

1 2 a 

,SH, 


word 5 
0 
0 


<°ERCENT) 


ERROR MESSAGES (THE CARD TO WHICH THE FRROR REFERS TO IS PRINTED 
ABOVE THE MESAGE) : 


••••SYNTAX error#*** 

••••MORE THAN 500 ELEMENTS*#** 

••••CONSTANT Table OVERFLOW**** 
••••MORE THAN 300 INTERIM f=Q*NS**** 


THE OPERATION CARD IS NOT IN 
THE ACCEPTABLE FORM, 

ATTEMPTED TO DEFINE OR REF- 
ERENCE AN ELEMENT NUMBER 

GREATER THAN 500, 

MORE THAN 100 CONSTANTS 

ATTEMPTED TO DEFINE OK REF- 
FRFNCE MORE THAN 300 
INTERMEDIATE EQUATIONS, 

••••FIELD NUMBER GREATFR THAN ?Q0*.*** ATTEMPTED TO DEFINE OK REF- 
ERENCE A FIELD NUMBER 

GREATER THAN 200, 


B2.4 USAGE 

CALLING SEQUENCE: 

CALL QDFURM< JUNE iNQUAD) 


TUNE = OPERATION CARD OR RFCMRD 
NQUAD = CURRENT QUA!) NUMbER 
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MINIS PROGRAM SPECIFICATION 


83.0 

83.1 

83 .;: 


8 3.3 


83 . 4 


PR flbW aM NAMfc- RDFL1M 


PURP'ISF 

READ THE DATA PAS{- POUTER aN'D I IGLU VALUE FROM a FIRST LEVEL 
INDEX FILE RFCOHP, 

identification 


date- 19 march iq'/s 

REVISION- 

AUTHOR- d , r .Sanders 


COMPUTER- OCR 6 U ? 4 

L A NO UA DP- - FORTRAN IV 

CORE S UE- 74 LDC’aMONS (11? OCTAL ) 

rescript ION 


FILE NAME, WORnS Per E m TRY, FIfLD SUE. and POINTER SUE ARE TaKEN 
from the fcNTRY FOR this file in /FTLDEF/. the MRST LEVhL index 
entry is read and UNPACKED TO FORM a floating point VALUE and a 
data base POINTER, 


USAGF 

calling sequence: 

CALL RdFL1N( IRKPTR. I FPT » FLDVAL # IIJRP) 

1 RK p 1 R i POINTER to INDFX FILE DEE. BLOCK 

I FPT = INDEX FILL EN|RY NUMBER 

FLDVAL = FIFLD VALUE 

IDb'P = DATA BASF POINTER 
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MINIS PROGRAM SPECIFICATION 


84. 0 program name-., rdulin 

84.1 PURPOSE 


Read two entries in an upper ufvel index file, 

84.2 IDENTIFICATION 

Hate- 19 march 1975 


Revision- 
author- 
COMPOTER- 
LaNGOaGE- 
C0RF SI2E- 


d.r. Sanders 

V ■ • • 

OCR 60?4 

FORTRAN IV f 

81 LOCA T IONS <121 OCTAL) 



R4.3 DESCRIPTION 

FILE NAME AND WORDS PER ENTRY aRE TaKEN FROM THE ENTRY FOR THIS 
FILfc IN /FTLDEF/. A CALL TO THE FILE READ ROUTINp IS SgT UH USING 

this information along with thf record numbers provided in the 
argument LIST, THE CONTENTS OF THE TWO INDEX RECORDS REPLACE THEIR 

corresponding record numbers in the argument list, 

84.4 USAGE 

CALLING SEQUENCE! 

CALL RDULTNdBKPTR, IPTAiIPTr) 

IBKPTR = POINTER T0 INUFX RLE DEF f BLOCK 
IPTA = FIRST RECORD POINTER 

(RETURNED AS CONTENTS OF THIS RECO R D> 

IPTq = SECOND RECORD POINTER (SaMF aS ABOVE) 


MINIS PROGRAM SPECIFICATION 


85,0 PR'KPUM WA'ltf- RPADFL, HR I f FL 
85, 1 PlJRPMSE 

■WRIT= OR READ AN EMl'lKl* FILE Tfl OK FROM THE DISC, 

85.2 I DFMT I F I 0 A T I MM 

0 ATI-- U OPCFMRFR. 1974 

REVISION- 

AuTHOR- R , 1. , K E F T E K ( 205 )-883-l778 

COMPUTER- !j A T A C R A F T 6U24 

LANGUAGE- FOR TRAM [V 

CORE ST 2 E — 11? LOCATIONS <160 OCTAL) 

85.3 DESCRIPTION 

thf named r i le is closed, if opem, to save any recent changes 

re FORE REARING The FILE THE FILE IS R E 4 IJ OR WRITTEN ACCORDING TO 

the error flag, (if i er- -9 , rear) the file is closed and deleted 

FROM THE ACTIVE FILE LIST, ACTUAL I/O IS PERFORMED VIA » R b D W R I * , 
1 REA on. ’ sc TS The frror Flag TO -9 AND calls 'WRITFL* , WRI'IE SETS 
The NUMBER OF RECORDS AND THE.IR Sj/E IN T HE FOURTH AND FIFTH WORDS 
OF THF NAME array, 

85.4 USAGE 

calling ■■ sequences 

CALL HR I TFl.tNAMF TLrNllHREC , NHYT , ARRAY , IPR) 

CALL R E A 0 F t ( N A M F I L » N 1 1 HE E C # N B Y I , A R K A Y , I E R ) 

NAMr i L = FILE NAME A m A Y , l N AWE ( 3 A 2 ) * NRF:C , i S I i ) 

NUMREC = NUMBER OF RECORDS IN FILE, 

HRYT = NUMBER OF’ R Y T t S PER RECORD , 

ARRAY = ARRAY TO HE REAU/WR 1 TTEN , 

| FR = ERROR code Set UPON return: 

= 0 FOR NO ERRORS, 

= j FOR NO SUCH FILE IN READ, 

' = ? FOR ARGUMENT ERROR, 
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MINIS PROGRAM SPECIFICATION 


86.0 PROGRAM NAME- RFADLR 

86.1 PURPOSE 


READ I N THE NECESSARY NUMBER OF PHYSICAL RFCORDS TO MAKE A LOGICAL 
RECORD# FIND KEY VALUE FOR STaRT OF LOGICAL RECORD IF NECESSARY 
AND RETURN 1 LOGICAL RECORD STORED IN THE FLEMENT ARRAY, 

56,2 IDENTIFICATION 

DATE- 11-20-75 

REVISION- 

AUTHOR- C,J, FARLESS (205) 003-1778 

COMpOTER- DATACRAFT 6024<'3 

LANGUAGE- fortran IV 

CORE SUE- 384 LOCATIONS ( 60 0 OCTAL) 


36,3 DESCRIPTION 

The NECESSARY READ FORMAT is USED to read one record, if the INPUT 
IS KEYED, the RECORD IS EXAMINED FOR THE KEY VaLUe, THE RECORD IS 

then- stored in the input buffer, this is repeated until one 
logical RECORD is in The INPUT BUFFER, this LOGICAL RECORD is then 
sent to * stelem' to produce Tmf element array, after which control 

IS RETURNED TO * CREATE * , THE MAXIMUM PHYSICAL RECORD SUE IS 1UOO 
WORDS, 


36,4 USAGE 

calling sequence: 


call REA0lR< irec. IEUD) 

!RFC=PHYSICAL RECORD NUmBERIFOR THE FIRST CALL TO 
RFAPLR. set IRfcC TO 0) 

I E N D = 6 N D OF FILE LOcaTfD-1# OTHERwISF = 0 
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MINIS PROGRAM SPECIFICATION 


*7.1) PROGRAM NAME- RRiJWHT 
* 7 , x PURPOSE 

REAL) 0 R WKIfE RANDOM DISC FILES, 


»)/«<? i DEMilF IfiAt I H -M 


DATE- 

R 0 VI S 10 N- 

AliTHiR- 

COMPilTER- 

lavigOarg** 

CORE S I HE- 


1.2 UrCPORER. 197*) 

R.L .KEPKEH (P0‘5) -883-17 78 
DATaCRaFT 60^4 
FORTRAN JV 

l OR LOCATIONS <154 OCTAL) 


4 7.3 DESCRIPTION 

the logical unit is determined hy thf stack entry, a read or write 

JS P 0 R F 0 M E I.) ACCORDING TO THE op COD!:, 

calling programs treat disk files as i wo dimensional arrays w i t h 
The first subscript foliated to a record number whose smallest 
vaLuc js one, the acTUaI- file is written on or read from with the 

USER'S RECORD NUMBER BUSED BY ONE, I , E, USER* S RECORD NUMriFR TEN 
BECOMES FILL RECORD NUMBER NINE'. ThJ'S HIASjNg IS USED It) PERMIT 
The- DSFR TO CHANGE THE DIMENSIONS OF HIS DISC ARRAYS, 

R7.4 USAGE ' 

; CALLING SEQUENCE: v 

CALL REOWRT ( I.STK . N W D S • I aR Y • J OP , NR EC > 

i s ik s f.mtry to active file stack. 

NNpS = NUMBER OF WORDS TO 1 RaL'SFER, 

I/\RY = SOURcH/UFSTTNaT ION ARRAY, 
job = REA IJ/WR i TE FLAG (1 = WR]TE) 

NRI.-C = STARTING RFC CRD POINTER, 
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MINIS PROGRAM SPECIFICATION 
e«.o program name- rfset 

98.1 PURPOSE 

RESET SYSTEM PARAMETERS Tt) ERASE ALL KNOWLEDGE 
OF PREVIOUS USER DIALOG, 

96.? IDENTIFICATION 

i , . ■* 

. OAjTE- 18 SEPTEMBER 1975 

REVISION- f 

AUTHOR- R.L, KEEFER <?U5) 883-1778 

COMPOTFR- DaTACRaFT 8 024/3 
LAVGClAGfc- FORTRAN IV 

CORE SUE- 113 LOCATIONS <181 OCTAL) 


88.3 DESCRIPTION 

The quad table is cleared and the last used quad 
pointer is set to 7tRo. all creatfd symbols (non system symbols) 
ARE REMOVED FR*M ThG SYMBOL TABLE AND THE SYMBOL COUNT IS 
RESET. The set and set MEMBERSHIP count ARRAY IS 2EROED, the 
EXECUTION mope IS SET TO IMMEDIATE. 


96. A USAGE 

calling sequence 

CALL RESET 
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MINIS PROGRAM SPECIFICATION 

PROGRAM N A M E - RFTFLD 
PURPOSE 

INPUT a SPECIFIC FIELD FROM A SPECIFIC RECORD 
VALUF TO REAL. 




AND CONVERT THE 


A9 , 2 identification 

DATE- 1 AUGUST 1975 

REVISION- 

AUTHOR- d,r, Sanders 


COMPUTFR- DATACRaFT 6024 

language- fori ran i v 

CORE S 1 ?. F - 108 LOCATIONS <154 OCTAL) 


B9.3 DESCRIPTION 

rf i eld Calls * e x e l o * To extract thf integer field from the d,’b, 

RECORD, AND THEN THE FIELD DEF INI F I ON INFORMATION IS USED TO ( 
CALCULATE THF NUMHFR of RITS IN the CONVERSION LOOP to ARRIVE A I A 
FLOATING POINT FIELD VALUE, 

! 

f>9 » 4 USAGE ! 

call riMG sequence: 

VALUE = RF 1FLP< I RFC # 1 FLDNO ) 

VALUE- - C/iLUULATFD value 
I'U b'C = n.R. RECORD NUMbFR 
1 F L D NO = FIELD NUMBER 



MINIS PROGRAM SPECIFICATION 

90.0 PROGRAM NAME- RPVSCN 

90.1 PURPOSE 

TO scan THE QUAD table CALLING 'RVSCAN* for each statement 
ASSIGNING A VALUE TO THE REQUESTED SYMBOL, 

90.2 identification 

PATE- 3-24-75 

revision- 

AUTHOR- C.J, EARLESS (205> 883-1778 

COMPOTFR- DATACRAFT 6024/3 
L A MG PAGE"’ FORTRAN IV 

CORE SUE- 237 LOCATIONS (355 OCTAL) 

90.3 DESCRIPTION 

this routine scans thf quad Table from the last delayx ro the 

CURRENT QUAD CALLING ’RVSCAN’ FOR ANY STATEMENT WHICH ASSIGNS A 

value ro the requested symbol isymS(isym), if an if statement is 
INCLUDED REFERRING TO THE REQUESTED SYMBOL, THE THEN AND ELSE 
STATEMENTS aRE ALSO SCANNED BY 'RVScaN*. THIS ROUTINE ALLOWS A 
VARIABLE to BE DEFINED BY OPERATIONS ON ITS CURRENT VALUE, 

90.4 US AGP 

CALLING SEQUENCE 

CALL REVSCNI ISYM) 

ISYM a SYMBOL TABLE ENTRY OF SYMBOL TO EXAMINE 
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MINIS PROGRAM SPECIFICATION 

91.0 PRMGRAM Name- subroutine rvscan 

91.1 PURPOSE 

to scan the quad table in reverse to determine the roots of a 
created variable, 

’01.2 IDENTIFICATION 

Date- 4-16-75 

1 

Revision- 

author- C, J, FARLESS (205> 583-1778 

COMPOTER- BATaCRaFT 6024/3 
LANGUAGE- FORTRAN IV 

CORE SI2E- 650 LOCATIONS <1212 OCTAL) 


91.3 DESCRIPTION 

the referenced variable is checkfd<by its symbol type) to 
determine if it is a creaTfd vakiarlf, if not, no action is Taken, 
IF IT IS A CREATED VARIABLE* ThE ASSOCIATED STATEMENT IN THE QUAD 

Table is flagged <word 3 of the first quad of that statement 
flagged AS -1)AS REQUIRING SUBSEQUENT EXECUTION, that statement is 
then scanned for the existence of any other created symbols* which 
are TREATED in the same manner, the result is to have EACH 
statement which needs to be exfcutfd to define the calling 
variable* flagged for later execution, 


91,4 USAGF 

calling SEQUENCE 

call RVSCAN( isym) 

isym = symbol table Entry of symbol to examine 
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MINIS PROGRAM SPECIFICATION 


92.0 PROGRAM NAME- SCAN 

92.1 PURPTSF 

SCAN an OPERATION Card FROM REQUESTED COLUMN* FINDING AND 
identifying A SYMBOL, 

92.2 I DENT I r I CA T I On 

Da T E*? 11-20-75 

Revision- 

AUThOR- C.J, FaHLESS (205) 883-l77b 

COMPUTER- nATACRAFT 6024/3 
language- fortran IV 

CORE S 1 2 F. - 961 LOCATIONS <1701 OCTAL) 


92.3 DESCRIPTION 

the chaRcTer in the requested column is identified. the follow- 
ing occurs depending on the first characters 

first character resulting action 

e the numeric characters following the e are 

converted to an integfr and stored in value 
as the element NUMBER and icode=o, if no 
numeric CHARACTERS FOLLOW, IC0DE=6, 

F THE NUMERIC CHARACTERS FOLLOWING THE F ARE 

CONVERTED to an integer AMD STORED In value 
as A FIELD NUMBER AND ICODE=2, IF N0 
numeric characters follow, icode=6, 

I THE NUMERIC CHARACTERS FOLLOWING The I ARE 

converted TO an INTEGER and STORED in value 
as an intfrmed- iate value n u mb t r and 
1 C 0 D E 3 1 . IF NO NUMERIC CHARACTERS FOLLOW, 
lCOnE 3 6. 

♦ I CODE 3 5 , VALUF = 1, 

.(DECIMAL POINT) T|hE DECIMAL P^INT AND THE FOLLOWING NUMERIC 

C;HARACTFRS aRE CONVERTED TO A FLOATING 

point number and stored in value, icoufm, 
IF ICODt IS NOT FOLLOWED BY NUMERIC 
CHARACTERS, SPECIAL OPERATIONS are CHECKED: 
. SQ. * SQUARE RO0T( ICO0E=5, VALJE=6) 

,S* , 3 SUMARY< 1C0DE = 5, VALUE = 7) 

,S2, 3 PRODUCT SUmaRY( IC 0DE=5, VALUEso) 

,V t 3 PERCENT ( ICODF 3 5, VALUE 3 9) 

,CH. 3 CHARACTER TRANSFER( IC0DE 3 5, VALUEslO) 
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qRIGINAU ESS39 S3’ 

m, poqk Qumxa. 





,CV, 5 TABLE ENTRY* !C0DE=5»VALUEs11> 

, SH , = SEARCH TA8Lb( IC0DE=5* VALUE=12) 
OTHERWISE, 1 C0DF=6* VALUbsO. 

- | !C0ne=5, AND VALUE=2, 

* IC0DE=5# V a L U F = 3 , IF THE NEXT CHARACTER IS 

ALSO AN *, THF VALUE=5, 

! 

/ leaner, vaLUe=4, 


O THRU 9 EACH DIGIT IS STORED UNTIL A NON-NUMENiC 

CHARACTER IS FOUND, IF the numeric DIGIT 
contains a decimal point, the numufr IS 
CONVERTFD to FLOATING POINT AND STORED IN 
THE CONSTANT TARLE WITH IC0DE=4 AND THE 
LOCATION IN THE CONSTANT TaRLE IN VALUE, IF 
NO DECIMAL POINT IS FOUND, THE NUMERIC 
CHARACTERS ARE CONVERTED To INTEGER AND 
STORED IN THE CONSTANT TArlF. WITH iCODb=3 
and the constant TARLF LOCATION STORED in 
VALOe, 

* (APOSTROPHE) STORE THE CHARACTERS BEFORE THfc NEXT 

APOSTROPHE IN ICON I CODF=7 , VALUE=LOCAT ion 
. IN CONSTANT Table, IF NO 2ND APOSTROPHE IS 
FOUND, ICODF = A» VAL.UF = 0 . MAXIMUM OF N B W # 2 
CHARS, WILL BE STORED , ANY MORE ChARS, 
WITHIN ThE APOSTROPHES WILL BE I G N 0 R c D . 

WHEN THE ICODE AND VaLUE PaRaMeTFRS HaVE 8EEN DETERMINED* SCAN 
returns control to exTopr. 


92, 4 USAGE 

CALLING SEQUENCE ' 

CALL SCAN(NCHAR, I CODE* VALUE, ILIMb) 

nchaR = column number to bfgin scan, 
i code = symbol code. 

VALUE = VALUE OF SYMBOL, 

I LINE S OPERATION card ARRAY, 

icode 

: ; j 

0* ELEMENT 
1= I NTFRMFD 1 ATE 
VALUE 

2 = F I ELD NUMBER 
3= INTEGER 
! CONSTANT 
4=REAL CONSTANT 
5-OPERaTiON 
6= OTHER 
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VALUE 

ELEMENT NUMBER 
INTERMEDIATE VALUE NUMBER 


FIELD NUMBER 

location of constant in constant Table 

location of constant im constant table 
operat ion code 
0 


7*CWaRaCTER 


location of charcter string left justified 

IN CONSTANT TA«LF 


OPERATION codes 


♦*1 

! , SQ , =6 

»CV, *11 

-=2 

! ;s+,s7 

,SH,*12 

*e3 

t S2 • =8 


/»4 

,</. =9 


#*=5 

» CH » *10 





MINIS PROGRAM SPECIFICATION 
93, Q PROGRAM Na«E- SCANTH 
93.1 PURPOSE 

Scan 9LU m AN SYMBOL TABLE checking a PARTICULAR byte in each eniry 

FOR A DEFINED VALUE, 

93 t 2 IDENTIFICATION 

DaTE4 11 NBVFMNE» 1974 

REVISjfJN- 

author- n.R, Sanders « 

CfJMPOTFR- DCR 60?4 

language- fortran iv 

CORE SI2F- 66 LOCATIONS (10? OCTAL) 

9.5, 3 DESCRIPTION 

SCANTr Scans the SYMBOL TarLE WHICH CONTAINS 12 BYTES PER entry 
CHECKING MRVTci FOR M LOw ' , Lfc . VaLUET *! b YTE *) , LE , » I UP ' SI'aHTING 
with entry number m entry ’ , The entry AT WHICH a MATCH is FIRST 
FOUND IS STORED IN MEMRY*, 

93,4 USAGE 

CALLING .SEQUENCE 5 

CALL SCANTbT IBYTEi row. i up, ientry) 

I BYTE = BYTE NUM. (1 TO 12) TO BE TESTED, 

I LOW = LOWER LIMIT FOR VALUE OF MBYTE* , • 

TUP = UPPER LIMIT 

I ENTRY = STARTING ENTRY 

RETURNS WITH ENTRY NUM, OF FIRST MATCH 
OR -j IF NO MATCH, 


B- 112 


MINIS PROGRAM SPECIFICATION 


94. U PROGRAM NAME- SCIFID 

94.1 PUBPMS C 

SCAN THfc INDEX riLF ID BLOCKS IN /F I LUFF / FOR A GIVEN INDEX LEVEL 
Ft>9 A GIVEN FIELD. 

94.2 identification 

Date- 1 1 MARCH 1975 

REVISION- 

AUTHOR- D.R.SAHDFRS 

COMPUTER- DCP 60?4 

Language- fortran iv 

CORE S I j?F- 92 LOCATIONS <134 OCTAL) 


94.3 DESCRIPTION 

beginning with the 4 i-st cfll of /fildff/. facR ten word inufx 
file in block is tested in sequence until matches are hade on 

FIELD NUMBER and INDEX LEVFL. IF NO MATCH t'S FOUND# A POINTFR TO 
ThF TD BLOCK WITH THF HIGHEST INDEX LEVEL FOR THE FIELD NUMBER IS 

Returned. 

94.4 USAGE 

calling sequence: 

CALL SCIF !D< I FLDNfl # LEVEL # IBlOCK) 
ifldno = field NUMBER 

LEV r L = CALLFD WITH THF DESIRED INDEX LEVEL 

RfcTURNFD W T TH MINIMUM OF < LfcVEL » H I GHEST FOUND) 
IrLOcK = NUMBFR of index FILE Id RLOCK 
o if field number not found 
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j MINIS PROGRAM SPECIFICATION 

95.0 PROGRAM NAME- SClNDX 

i 

95.1 PURP'ISF 

i ■ " : . ;v- ■ ■ 

F M p L O Y AW INDEXING TECHNIQUE TO COMPILE A CANDIDATE FILE OF DATA 
| RaSE gNTPY POINTERS FOR A RaNGF OF VALUES FOR A FIELD, 

; 9b,?. IDENTIFICATION 

PATE- 14 MARCH 1975 

REVISION- 

i • ; • . 

author- d.r, sawders 

COMPOTER- OCR 6024 
LANGUAGE- FORTRAN TV 

j CORE SI2E- 654 LOCATIONS (1216 OCTAL) 


9b. '6 DESCRIPTION 

UPPER level index filf pointers are CALCULATED using the minimum 

VALUE AMD SEGMENT SI7L- FIELDS 01 THE INDEX FILF DEFINITION, 1 HE 
PRMCFSS or COMPARING MAXIMUM AND MINIMUM FIELD VALUES WITH 
CALCULATED values TO ARRIVE AT TWO POINTERS TO THE INDEX FILE FOR 

the next lower level is Repeated until the first level index file 
is reached; them the data base pointers extracted from i he first 

LEVEL INDEX FILE ARE STORED IN THE CANDIDATE FILE AND SORIFD IN 
ASCENDING ORDER, 

9b, 4 USAGE- 

CALLING SEOUFNCE: 

CALI SCI N D X ( IFLDNO,LEVE|.» VALMIN, VALMAX.NCAND) 

IFLPNO = FIELD NUMB FR 

LEVEL = BEGINNING INDEX LEVEL ( DEFAULTS 10 HIGHEST DcF I MfcD ) 

VAI.MIM = MINIMUM FIELD VALUE 

valmax = maximum field value 

InICaNU = NUMBER OF CANDIDATES IN HIT FILE 
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MINE PROGRAM SPECIFICATION 

96.0 PROGRAM NAMt- SEARCH 


96.1 PURPOSE 


search conversion table for value, 

90.2 IDENTIFICATION 

DATE-’ 2-17-76 


Rev i s i on- 
AUTHOR- 
COMPOTER- 
LANGUAGE- 
COR£ SI2E- 


CvJ. FARLESS < 205 ) 883-17 78 

OATACRAFT 6024/3 
FORTRAN IV 

151 LOCATIONS (227 OCTAL) 





96.3 DESCRIPTION 

Each of n table entries are comparfi) to the value indicated 'at 
iqu(2,nju a d> until an fuuivalent value is found, the cobhesponding 
value IS returned For the CONVERSION, IF Nd EQUIVALENT value is 
located THE VALUE OF THE FIRST TABLE ENTRY IS RETURNED ( F I RS T TABLE 
ENTRV IS stored IN I QU ( 3 # nduau ) > , FXaOPLE 5 
m = o 

1 12 s * A * .cv, 1 
I "1.3= ' B * .CV. 2 
T 14= r D ' ,CV. 3 
1 15= 1 E * .CV. 4 
FLD4 = E12 ,SH, 1 1 1 *5 
IF E12 IS AN *: A * F L D 4 = 1. 

•5 R * F l 04 = 2 
' D ’ F L U 4 = -5 
•F» FLD4S4 
: . OTHER FLD4 = 0 

96.4 . USAGE 

calling sequence: 

VAL = SEARCH(L0C1>L0C2.N) 

VAL = RF TURNED CORRESPONDING VALUF 
LOCI = uuad tarlf entry for OPFRaNDI 
LUC2 = quad table fntry for opfkand2 

■ ■■■ N ; = NUMBER OF VALUES IN TABLE 


B- 115 


li ! . 

I ! ‘ ; \ ; V 

j ! MINIS PROGRAM SPECIFICATION 

? ! »7,0 PROGRAM M A M E - SF1.PKI 

; i ... 

i | 97. 1 PuRRMSF 

LOCa TC: GIVEN FILF NAME* IN an aCHVF- FILE TABLE AND SET PRIORITY 
l j LEVELS, 

97,1? I D E N T j F I C A 1 1 D i'J 

PATE- 11 DFCFMRL'R , 19 7 4 

V ] REVISION- 

AiJThMR- \ P,L, KEEFER < 205 ) -683-1770 

• ' • J/ ' - ' ' . . - ■ _ 

■ j COMPUTER- DAT APR A F T *024 

language- fgtran IV 

i • , . ' ' ■ • - v. : - ’■ ...... ■" 

: i ■ CORE STEF- 514 LOCATIONS (101)2 OCTAL ) 


97,3 DESCRIP F I(1M 

thf calling file name is compared against fach active file name, 

IF'L0 CA Tf D , THAI FILE IS pPOMoTfcn TO FlRSI PRIORITY AND ANY HIGHER 
PRIORITY PILfS are; 1 HE MOT e n ’ To MAKE ROOM. if The FILF IS NOT IN 
the ACTIVE stack, an ENTRY IS Made IN THE STaCK- <THt lowest 
PRIORITY FILE is CLOSED, if NEcESSaRY) a n U PRIORITIES aRL adjusted 
AS A ROVE . THE FILE is OPENED » IF IT IS NEW TO 1 HE STACK* AND THE- 

entry to the file stack is returned, 


97,4 USAGE 

CALLING SEQUFNCE: 

CALL SET^RI ( IDF ll.h, 1 STACK, IER) 

IDFILE -- 5 WORD FILE DEFINITION ARRAY SFT AS FOLLOWS: 
IDF ILF (j.-3) CONTAINS THE 6 CHARACTER FILE NAME, (3A2> 
IDFTLEU) CONTAINS THE NUMBTH OF RECORDS IN file. 

I Of I LE ( 5 ) CONTAINS The length OF A RECORD IN BYTES, 

I S T A C K = ENTRY TO FILF STACK CONTAINING THIS ID. 

IFR = FILE STATUS FRRdR FLAG SfT AS FOLLOWS? 

= 0 IF FILE PKfVIOUSLY EXISTFD. 

. = 1 IF' FILP IS A nEw FILE, 
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98.0 

93.1 

98.2 


99.3 


98.4 


MINIS PROGRAM SPECIFICATION 


PROGRAM NAME- SOHTlX 
PURPOSE 

SORT large index files, 
identification 
Da 16 MAY. 1975 
Revision- 

AUTHOR- R.L.KEFFFR (205) 883-1778 

CO HP Cl TER- DATaCRaFT 6024/3 


LANGOaGE- FORTRAN IV 

CORE SUE- 279 LOCATIONS (427 OCTAL) 


description 

the available cope. specified in the first word of common ’reuse’, 
IS used as a scratch area for a binary sort routine, The named 
pile is broken INTO MS^G segments, read in core, sorted, and 
written back to THE Disc FILE, NSEG=iMTmT 0 T*ITMLEN* 2 /L£NbUF where 
itmtot is the number of items in the file, iTmlen is the number of 

WORDS PER ITEM, AND L E N B U F IS THE LENGTH OF THE AVAILABLE SCRATCH 
BUFFER, THE SORTgn RLOCK3 A«E MERGED TOGETHER V I A 'MERGER' TO THE 

specified output device or file, mot', the common 'heusf' is 
divided into ns eg sections for input buffering, after a SUCCESSFUL 
merge, the input file is deleted, if the sort KEY IS TOO LONG 
(,GT; ? WORDS LESS 2 BITS), NO SORTING IS PERFORMED AND CONTROL IS 
RETURNED to THE C A I LING PROGRAM, 


ORIGINAL PAGES Ell 
OF POOR? 

CALL SORT IX< INPUT , IOUTr , I OT , KE Yl • KEY2 ) 

INPUT = INPUT FILF NAME AND SUE DATA, 

IOUTF = OUTPUT PILE NAMF AND SUE DATA, 

I OT 5 OUTPUT nEVICt NUMBER. (0 FOR DISC) 

KEY1 s FIRST BIT OF SORT KFY1, (0-N) 

KEY? s LAST BIT OF SORT KEY, (GRFATER OH EQUAL TO Kt Yl ) 


USAGE 

calling sequences 
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MINIS PROGRAM SPECIFICATION 

99.0 PROGRAM NAME- SRTMER .-V 

99.1 PURPDSF 

Stm i)A I A 0 A Si: F ILF ON UP TO *1 HELDS AND/OR MERGE DaTa «ASfc FILE 
RETAINING the newest RECORDS, 

: : i . . ' ...... : 

99.2 I DENT IF I CAT I ON 

HATE- 2-17-76 

revision- 

AUThOR- C. J.FARIESS ( 205 >) 883-1778 

COMPUTER- DATACRaFT 6024/3 
LANGUAGE- FORTRAN IV 

CORF S12F- j805 LOCATIONS (341t> OCTAL) 


99.3 DESCRIPTION 

IF SORTS /.RE RF(JUe*> T ED * SORTS a'R£ PERFORMED IN THE OHOfcR 1 H£ 

fields wr-Rp Reoufsted# by sorting on each field using »s.ortix» , 

A f| T f: R SORTING HAS R t F N COMPLRTFD , T t |P SoRIFlJ FILE IS WRITTEN ON 

the ha t a rase file, if a merge is rfouesii-d* thf merge is uonf by 
C 0 M P a K I N G Thf VaL Up OF' f HE FIELD ON EACH RECORD T 0 ITS SUCCESSIVE 
Records, if equ i vaLfnt records arf found, the l a s t onf (or most 
r e Cent) is Retained and t hr OUPLiCATps uelfTfd this file is also 
written on f he data base file, updating ‘the no. op data rase 
Records in mtF<4), in the case of an update rum, the data is not 
WRITTEN On THE DaTa RASE file until merged with the DaTa RASE 

FILE. if VO MERGE IS ReOUcSTeD* The UPDaT F RECORDS are ADDED To 
Th^ end of the data rase RECORDS, , ; 


99,4 USAGE 


calling sequence : 

CALL SRTM5R(NREC, TWMEV ) < • 

iwntv = DEVICE NO, or SCRATCH FILE 0 =DlSC ' 
o r her- Tape d f v ice no, 

VREC = MO. OF RPCORnS ■ I'M DATA BASF FILE, -OUTPUT 
= MO. oF RFC OKI) S CREATED, -INPUT 
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100,0 

100,1 

100,2 


100,3 


MINIS PROGRAM SPECIFICATION 
PRAQ 9 AM NA M i* STELiM 


ORIGINAL PAGE IS 
OP POOR QUALITY 


PURPOSE 

STORE P.Ni U 0 G 4 G AL PfeqORD BF INPUT DATA IN TH| ELEMENT A&NAY 
ACCHPnjNG TO TN| ImNRmaTIAN IN THP INPUT BiCMSTgPiB IN GflMMgNI, 

IQENT JF IGATJNN 

DATE* 12-2*70 


REVISION- 

autmor* 
chmpoter* 
LANQOaGE- 
C09| §I2f- 


C,U, FaRLPS 1205 ) § 83-1778 

DaTaCRaPT 602473 

FORTRAN IV ■ 

ns locations nm actad 


DESCRIPTION 

BEFORE ENTERING THIS RHUTjNi, THE INPUT OEq* HAS RSIN STARS U IN 
The chmmhn reuse with the i nfcrma T i on for each element stored IN 
NUMERICAL ORDER, ALSO, «NP LOGICAL RfeCORD HAS. §§§N STORED |N THE 
common AREA REUSE, THE FOLLOWING INFORMATION IS §T§R§p FOR EACH 
ELEMENT in inpt? 

f NPT (4,500 ) 

INPT<1 , iKNRTSsNU, 3F BITS OR BYTES! IF TEXT) IN THE ELEMENT 
I N p T ( 2 # I ) s I F I R = F I R S T R { T HR BYTE NO, HP THE |L|MIMT , 

(FIRST a IT IN ARRAY ? 0) 

(FIRST BYTE IN ARRAY m %) 


I NPT ( I ) s inQDisC^NVgfii I ON CODE FOR TH| §LgM§NT 
IC9Dg=Q NO ca.NVER.SlGN 

ASCII T9 INTEGER 
BCD T9 INTEGER 
EBCDIC TO INTEGER 
AiCji(RBIT) TO BCU(6RJT! 

CHARAGTiR T9 LOGICAL (T HR Y sit 9TH§RS»0) 


*1 
*2 
* 3 
= 4 


ORIGINAL Page is 
OF POOR QUALITY 


JNPT ( 4 , I ) s I T Y P 
l T YP 


?daTa type 

=05 INTEGER 
sis ASCII (A 


HR BINARY 
BJT CHARAGTIR 


CC?Di> 


= 2 s BCD (6 BIT CHARACTER 0901 ) 

53s EBCDIC (8 BJT CHARACTER CODE) 

545 FLOATING PflJNT(NflVA«ia i!T WORDS) 

55s FLHaTING PHINT(DaTaCRAFT« 24 PjT WORDS) 


565 FLOATING PH I NT (SIGMA 9*3? BIT WARDS) 

5 75 FLOATING PH INK .IBM 360*3? BIT WORDS) 

*05 TEXT ASCII (NBTI AND f F I.R SHOULD Bfc IN BYTES > 


59 * TEXT BCD D) HI ill 

sjnsTiXT EBCDIC III y «! 

for each elem§nT , the data is extracted fkhm reuse, the 


’ hi 

ReOUJHED 


B“ 119 



CONVEYS I ON IS made. and Thf data stored in the element 

arrav(lemt), two locations a Re available for each element allowing 

FOR FLOATING pojnt storage And TWO WORDS of CHARACTER DAT A ( 4 - 

BYTES/ J 6 BIT WORDSjo BYTES/24 BIT WORDS), ALL DATA IS LEFT 

JUSTIFIED IN THE TWO WORDS, ALL DATA NOT IDENTIFIED OR CONVERTED 

Ttf CHARACTER or Te/T will BE STORED in The FLEMENT ARRAY in 

FLOATING POINT, CHARACTER DATA WILL BF EITHER ASCII OR BCD, TEXT 
WILL CRtATF ENOUGH ELEMENTS TO STORE NRW*2 CHARACTERS PER ELEMENT, 

all text will re stored in ascii, 

LEGAL CONVERSIONS: 

DATA TYPE CONVERSION --CODE 

BINARY MO CON V , --0 

ASCII NO CONV, — 0 

ASCII TO INTEGER — 1 
ASCII TO BCD --4 
CHARACTER TO LOGICAL —5 
BCD NO CONV, — 0 

BCD TO INTEGER — ? 

CHARACTER TO LOGICAL -- 5 

EBCDIC MO CONV, — o<wiLL BE STORED IN ASCII) 

EBCDIC TO INTEGER --3 
EBCDIC TO BCD --4 
CHARACTER TO LOGICAL — 5 
ALL FLOATING NO CONV, — 0 
POINT 

ALL text NO CONV, — 0 


in 0.4 usage . ; 

* CALLING SEQUENCE; 

CALL STELEMT NELMS) 

NELMS s NUMBER OF ELEMENTS IN ARRAY 
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MINIS PROGRAM SPECIFICATION 


101.0 PRAGMA* NA«fc- STNAMF 

101.1 PURPOSE 

ALLOW I NDF °E NPFNT ENTRY AF SYHRHLS IMTfl THF SYMBOL T ABLb 

101. 2 identification 

PATE- 18 SEPT6MBFK 1975 

^EV 1 S I ON- 


AUTHOR- D , R , S AMDFRS (205>-fl83-l778 

COMPUTER- DCR 6 0 ?4 
LANGUAGE- FORTRAN IV 

CORE S 1 2E- 230 LOCATIONS (346 OCTAL) 


101.3 DESCRIPTION 

■ ! 

The NUMBER of BYTES POSSIBLE IN »NaME’ IS CHOSEN ACCORDING 10 THE 

t y pe of Symbol , ThB Symrol tarlf is scanned for a’ match on This 

number of RYTES AND THF CORRECT SYMBOL TYPE, IF A MATCH IS FOUND, 

the referenced array field is returned in *nref ? and the symbol 
TaplE entry number is returned in •ifntry’. if no match is found, 
the correct number of rytes in »name*are entered into the symbol 
Tarlf* the entry pointfr is stored in * ifntry* and a minus one is 
returned in 'nref' to indicate that a new symbol was entered. 

101.4 USAGE 

calling seoufnce : 

CALL STIvaME(Na.ME,NR6F, ITYPE* IENTRY) 

name = Symbol name ujp to n characters) 
nref = rpffrfnced array field 

-1 IF NEW symrol CREATED 5 

J-. . : ; r . ,;j: : • 1 TY-P-S * Symrol Type r ... ■ 

I ENTRY = SYMROl TARlE ENTRY POINTER . 
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MINIS PROGRAM SPECIFICATION 

102,0 PROGRAM Na^H- STOFLD 
102 , 3 . PURP 1 SE 

STORE A COMPUTED FIELD VALOE ON THF DaTa BASE RECORD, 
102 .? identification 

DATEi U- 20-73 

Rfe vision- 

author- C.J. EARLESS ( 2 0 ‘i ) 803 - 177 A 

■- V" i 

COMPUTER- DaTaCRaFT 6024/3 
language- Fortran i v 

CORE SIZE- 127 LOCATIONS (177 OCTAL) 


3.02,3 DESCRIPTION 

Thf MUMdFR OF PITS (OR BYlpS FOR TEXT), The FIRST plT (OR 6 Y IE ) 
MUMpPR, AND THF DaTa TYPF aRE EXTRACTED FROM THE CORRESPONDING 
field definitions, fxcept in the case of data type euual tu rfali 
character, or text, the data is converted to integer and stored in 
The FIRST word of The FIELD Value ARRAY, then The UATa IS PaCKFD 
I NTO THE DATA PaSe: RECORD aRRaY< IN Rf-USt) USING PaCUAT , WHFN 
ENTERING PACnAT INTEGER DATA is stored RIGHT JUSTIFIED IN I HE 
FIRST WORD OF THF FIELD VALUE ARRAY, FLOATING PRINT IS STORED IN 
THE FIRST ? WORDS HR THE FIELD VALUE ARRAY, CHARACTER AND TEXT aRE 
LEFT JUST 1 FIFl) IN THE LEAST NUmbER OF BYTES NEEDED BEGINNING IN 
THF FIRST WORD OF THF FIELD VALUE ARRAY. THE HIGHEST BIT NUMBER 
AVAILABLE IS RETURNED, 


3.02,4 USAGE 

calling sequence: 

CALL ST OFL D ( 1 F L D , I VAL > I END , I M rifj) 

iflq =f i El. n imumrer 

I VAL -FIELD VALUE ARRAY 

1 F N D = The NFXT PIT MUMBFK aFTF-R TMfc HIGHEST 
ONE USED ( PET TO 0 WHEN STARTING A 
NEW RECORD) , . , H . 

I mod rRFCCRn NO, To MOuII'Y 
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MINIS PROGRAM SPECIFICATION 


103.0 PROGRAM NaMt- SUBSET 

103.1 PURPOSF 

DERIVE A SOtiSET FORM THE SET CANDIDATE FILF. 

103.2 identification 

date* 2 - 3-75 

■ i ■ :: • ■ ■ ■ 

revision- 

author- "C.-Jf FARLFSS ( 2 0 5 > flb3-l77(j 
COMPUTER- DATaCRaFT AG24/3 
LANGUAGE- FORTRAN IV 
CORE SUE- 97 LOCATIONS (141 OCTAL) 


103.3 DESCRIPTION 

thf REFERENCED STATEMENT IS EXECUTED for each member of the 
CANDIDATE INPUT Flit VIA SUBROUTINE ’EXCANS’, EACH THREfc WORD 
CANDIDATE ARRAY IS TRANSFERRED To ThE OUTPUT CANDIDATE FILE UNLESS 
WORDS ? AND 3 ARE ROTH if F R o ( T H E CORRESPONDING BITS OF WORDS 2 AND 

3 are set if a candidate is a member of the corresponding sei>, 
after all the candidates are examined, boih files are closed, and 
The number OF CANDIDATES IN THE file IS UPDATtD IN 
COMMON ( /COMTAB/ I CON ( 100 ) ) , 


103.4 USAGE 

calling sequence: 

Call SUBSET ( I OF . IQL.NCAND) 

IDF = FIRST QUAD TABLE ENTRY OF THE STATEMENT 
IDL = LAST nUAD TadLE entry OF The STATEMENT 
NCaND = NUMBER of MEMBERS in THE NtW SgTIPUTPUT), 
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MINIS PROGRAM SPECIFICATION 


10-1,0 PROGRAM NAME- SUNARY 

104.1 PURPOSE 

TO CALCULATE THE SUM OP N ELEMENTS IN' AN ARRAY, 

104.2 IDENTIFICATION 

DATE- 12-22-75 

• ' • • "f. , '■ . ' . 

Revision- 

author- C.J.FARLESS (205) GB3-177R 

I 

COMPUTER- DATACRAFT 6024/3 


LAMgOAGE- FORT Ram IV 

CORE SUF- 42 LOCATIONS (52 OCTAL) 


104,3 DESCRIPTION 

N CLEMENTS OF THE REQUESTED ARRAY ARE SUMMFD AND THE RESULT 

Returnfu . 


104 . 4 USAGF 

CALLING SEQUENCE: 

X = S IJ M A R Y ( L O C * N U M ) 

loo = quad operand value of ist of m elements in the array, 

NUN = NUHER OF ELEMENTS, 

X = RESULT (IF SUM. 
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MINIS PROGRAM SPECIFICATION 

105.0 PROGRAM NAME- SUBSET 

105.1 PURPOSE 

SUM A VARIABLE OF FIELD OVER A GIVEN SET, 

105.2 I D C NT I F I CaT I ON 

date- 4-15-75 

REVISION- 

AUTHOR- C, J. EARLESS (205) 883-1778 

COMPUTER- nATACRAFT 6024/3 
language- fortran IV 

CORE SIZE- 468 LOCATIONS (724 OCTAL) 

105.3 DESCRIPTION 

FOR A GIVEN SET THF REQUESTED variable or field is summed and THE 
Result added ro the requested variable name, the first variable in 
the assignment quad of the statement is taken as the variable to 
which to add the result, the result is in floating point, 

105.4 USAGE 

calling sequence j 

SOmNAMe = SIMSET(SETNAME»SUMMFE) 

SFTNAME = N AMF OF SFT To SUM OVER 

summer = variable or field to sum 
sumna m e = name '-of vaRIarle to store sum in 

NOTE: SUMMEF ANn SETNAMF can re in any 

ORDER IN the ARGUMENT LIST, 
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MINIS PROGRAM SPECIFICATION 

106 . 0 PROGRAM NAME- S')M2 

106.1 PURPOSE 

compute Th= sum OF rut PRODUCT OF Two ARRAYS, 

106.2 identification 

Dj\TE- 12-22-75 

REVISION- , | 

AUTHOR- C.J. FaRLESS (205) 883-1778 

COMPUTER- DATACRaFT *,(j?4/3 

L .AN fid A fit’” FORTRAN IV 

CORE si*F- 53 LOCATIONS (6b OCTAL) 

106.3 DESCRIPTION 

The CORRESPONDING Mi-MBERS of 2 ARRAYS a Re MULTIPLIED TOGETHER and 
The PRODUCTS SUMMED AND Returned A s Th E RESULT, 

106.4 USAGE I 

CALLING SEQUENCE: 

X S SUM? ( LOCI , LOG? ,NUM> 

X = RESULT AMT VALUE 

LOCI AND L. DC 2 = 0 P F R A N D VALUF FROM QUAD TABLE WHICH 

CUR RESPONDS Tcj THE 1 ST Ml-MRbP OF EACH ARRAY, 
vljM r MJmbeR OF CLEMENTS IN EACH ARRAY 


i sitt i a i * . .. 
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MINIS PROGRAM SPECIFICATION 


107.0 PROGRAM name- $rNTHE 

107.1 PURPOSE 

BREAK AN INTERNAL SENTENCE INTO SURCLAUSES FOR FORMATION OF 
EXFCCT I ON TRIPLES, 

107.2 IDENTIFICATION 

DATE- 4 MARCH 1975 

I , 

REiVI si on- 

author. n,R, S anders 

i ■ 

CflMPOTFR- DCR 6024/3 

LANGUAGE- FORTRAN IV 

•CORE SI 2 E- 362 LOCATIONS (552 OCTAL) 


107.3 DESCRIPTION 

the sentence type, determined ry * istack<2.2 > * is stored in the 
quad stack, then different actions are taken according to the 
sentence type, for set or variarle definition, control is passed 
directly to ’Synthi*. for »if’ statements control Passes to 
'synThI' for each if, Then and else clause, for subroutine calls, 
CONTROL IS Passed to » SYNTHI ' ONLY WHEN aN ARITHMETIC EXPRESSION 
APPEARS IN THE ARGUMENT LIST, OTHERWISE, THE OUadS ARE FORMED IN 
•Syn'Thf*. 

107.4 USAGE 

CALLING SEQUENCE: 

CALL SYNTHEU SEN, LAST. I STACK, IS, 1SGR, IER) 

IS6N = internal SENTENCE form 

last = num, op entries in msfn’ : ! 

istack r output of parse 

IS = NUM, of entries in * i stack* 

I S(-jR = SYNTAX GRAPH 
I F.R S ERROR FLAG! QsGOflDJ flsERROR 


0 B1GTN^ 
OE POOK 
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MINIS PROGRAM SPECIFICATION 

106.0 PROGRAM NAME- SYNTHl 

106.1 PURPOSE 

CONVERT THE INTERNAL SENTENCE AND PaRSF OUTPUT STACK INTO AN 
EXECUTION STACK, 

106.2 identification 

DATE- 27 NOVEMBER 1974 

REVISION- I 

AUTHOR- I), R , SANDERS 

COMpOTRR- DCF! 6024/3 

language- fortran iv 

CORE SIj£E- 846 LOCATIONS <1816 OCTAL) 


108.3 DESCRIPTION 

•URN' from LEXCaL and 'ISTaCK* FROM PaRSF are usfd in this 
routine along with the syntax graph to form The fxecution triples 
saved in ♦■quaTRL', «. i stack • is sorted in descend i ng order using 

the FIRST WORD IN THF TWO-WORl) ENTRIES aS A KEY. 1-SET DEFINITION 
2 = S U R S F T DEFINITION 3= VAR I AGUE DEFINITION 4= I F STATEMENT 5 = UNUSED 
6=SUUROUT I NE CALL (ASSIGNMENT TYPE) 

7 = S(IuRC)UT I NE CALL (EXECUTION TYPE) 

inp,4 USAGE 

CALLING SEQUENCE: 

CALL SYNTHl ( I SEN# l SNBGN » L AST # ISmSaV# ISTaCK, ISTbGN, IS# 1SGR# 1ER) 

I SEN = INTERNAL SENTENCE FORM 
ISNRGNr HEG INNING OF SYMBOLS I N ’I SEN * 

LAST s LAST ENTRY IN ' 1 3FN ' TO BF SCANNED 
I S [\j S A V - SENTENCE TYPE 
I S T A CK = OUTPUT op PARSE 
ISTRGN= BEGINNING ENTRY In » ISTaCK* 

IS = LAST ENTRY IN ' I STACK' 

ISOR S syntax graph 

I ER = ERROR FLAG: 0=GOOD# 8=ERROR, 
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* 109,0 

109.1 

109.2 


109.3 

109.4 


MINIS PROGRAM SPECIFICATION 
PROGRAM NAME- TERFNC 


PURPOSE 

ACCESS ANY OF 5 TERMINAL FUNCTIONS PROVIDED RY TSflS, 


identification 

date- 29 SEPTEMBER 1975 


REVISION- 


AUTHOR- 
COMPpTER- 
LANGOaGE- 
CeRE SltE- 


D,R, SANDERS 
OCR 6024/3 

assembler 

13 WORDS <15 OCTAL) 


f £G$ 


IS 


O 


OF 


■jjfOOS- 


DESCRIPTION 

AN INTEGER FUNCTION CODE FROM f TO 5 IS PASSED f O S,TF IN TSOS AND 
THE CORRESPONDING TERMINAL FUNCTION IS EXECUTED, 

USAGE 

CALLING SEQUENCES 


CALL TERFNCC IFNC, IRES) 

I FNC = FUNCTION CODE 

IsRESET SWITCHFS 
2=RESET LINE COUNT 
3sLOAD SWITCHES 

4 = L 0 A D LINE COUNT 
5=LOAD TERMINAL TYPE 
IRES = RESULT OF FUNCTION EXECUTION 


MINIS PROGRAM SPECIFICATION 
110.0 PROGRAM NAME- TFRMNL 
11J.1 PURPOSE 

sc-t the output listing of:- vice to the terminal, 

ID. 2 lUERTir I CATION c 

OaTE- ' ?6 FEBRUARY. 1975 

REVISION- 

AUTHOR- R.'l, KEEFER (205)-8R3-l77fl 

COMPUTER- OATACRAFT 6024 ' 

language- Fortran IV 
CORE S I HE- DECIMAL 12 OCTAL 

110,3 DESCR I p l ION 

THE OUTPUT LIST DEVICE. SPECIFIED IN COMMON ' IOaPaY* at I BUF ( j ) 
IS SET TO ThF. TERMINAL <1), I HE- NO. Of LINES PFR PAgF IS SET TO 
33URUF (139)), 

11.0,4 USAGE 

CALLING SEQUENCE: 

CALL TtRMNL 

Required commons 

COMMON / 1 0 A R A Y / I RUF ( .1.34 ) , LST , 11(15) 
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MINIS PROGRAM SPECIFICATION 

111.0 PROGRAM NA*fc- UMPKER V 

111.1 PURPOSE 

r ' ; 

UN d aCK The FIELD Value and data BASE RECORD POINTER from an entry 
OF A FIRST LFVFL INDEX FILE, 

111.2 I D p NT I F I Ca T I flK 

date- 19 march 1975 

REVISI.in- 

authcr- n.R, S anders 

COMPUTER- HCR 6024 I 

■■■■'■■ i .... . 

Language- fortran iv 

CORE SI2E- 182 LOCATIONS <266 OCTAL) 




111.3 description 

’ IENTRY’ is picked up from the right-most »nbent» bits UF the 
Source array, ’fldval’ is picked up as an integer from The source 

ARRAYfS MEVT » NBFLD ’ BITS FROM RIGHT TO LEFT AND CONVERTED TO 
floating POINT, 

111.4 USAGE 

calling sequence: 

call unpker< iaRRay.nwords# ientry.nrent.fldvaLi nbfld) 

IARRAY = SOURCE ARRAY (1 by ’NWORDS*) 

N WORDS = number OF WORDS IN MARRAY* 

1FNTRY = DATA BASE ENTRY OF SOURCE RECORD 
NREmT = NUMBER OF BITS IN ENTRY POINTER AREA 
FLDVaL = FIELD value in sourcf RECORD 
NBFLD = NUMBER OF 8 ITS 1M FIELD 
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MINIS PROGRAM SPECIFICATION 

112.0 P R M 6 *? A M NAME- VAKCHK 

112.1 PURPDSF 

V EXAMINE POSSIBLE quad AND F l ELD LISTS TO PRODUCE A FIELD fOH WHICH 

AN IMDfi.X FILE SCAN IS TO ftp MADE , 

112.2 IDENTIFICATION 

DATE- 31 MARCH 1^75 

RE VI Si ON - 

author- n* R;. sawders 

COMPUTER- OCR 6 0? A 

LANGUAGE- FORTRAN IV 

CORE S1*E- 52T5 LOCATIONS (1013 OCTAL) 


112.3 DESCRIPTION 

FIRST, THE POSSIRLE FIELD LIST IS CULLED OF ALL NON- INDEXED 
entries, if any entries remain, They aRe tested against a 
HIERARCHY of CRITERIA IN ORDER TO ARRIVE AT A FIELD A.mD I TS 
ASSOCIATED HDUND.aRY VALUES TO RE USED AS INPUT TO IVaRJNX*. THE 

most desirable criterion is that the variable appears in the 
possible field list TWICE- OMCF WITH an UPPER ROUND and UncE .with 
A LOWER RoUiJf), The next LOWER in hierarchy is That a field appear 

WITH ONE BOUNDARY, AND THE MAX OR M|-n FIELD VALUE IS IMPLIED I OR 

The second boundary, (example; field, lf,?o implies »field» is 

BETWEEN T H p MINIMUM FIELD VALUF AND 20,) THE THIRD PC)S ] T I ON IN 
HIERARCHY CODERS THE CASE of A FIELD USED WITH am * , EQ , » RELATION, 

this case translates into an upper hound and a lower bound which 
are the Same, 

' . G T, ' AND '.LT,* RELATIONS are converted into « ,gE . • AND • .le. » 
relations by use of the MINIMUM value and SEGMENT Slifc IN I he 
SECOND LEVEL INDEX OFF INI 1 ION block, 

112. 4 USAGE O . 

CALLING SE3UE4CE: 

CALL V ARC WK ( I PFL D , I 0#UA D , I N , NFLD » V.1 » V? , I SEL ) 

IPFLD = POSSIBLE FIELD LIST 
I PQUaD = POSSIBLE DUAD LIST 

I M = NUMBER OF MEMBERS in » IPFLD' AND ’IPOUaD’ 

nfld = field number on which to index 
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r OIF NONE FOUND 

VI S LONER POUND FOR VALUE OF THE FIELD 

V2 = UPPER POUND FOP VALUE OF The FIELD 

ISEL - POINTERS TO SELECTED QUADS IN 'JPQUAD* (2 WORDS! 



PRlGlNiffi 

•QS £P.OK 0,U^ T ^ 


113.0 

1 13.1 

u:u? 


113.3 

113 ,'* 


MINIS PROGRAM SPECIFICATION 
PROGRAM name- vahinx 
PURPOSE 

RUim A CaMUIDaTR FI Lb USING AM I MDEXEP VARIABLE, 

'& DRWTinrATlOivi 

D;A Tb- 31 MARCH 1975 

I 1 ' . ' 

Rtf V I S I MN- 

i - 

AUTHOR- O.R.SaNDFRS 

COMPUTER- • DCR 60?4 
L A MG 0 A Ob" FORTRAN IV 

CORE S17F- 378 LOCATIONS <572 OCTAL > 


RESCRIPT I OM 

• SC I MDX * IS CALLED Tfl FORM A LIST f>F CANDIDATES IN /REUSE/, 
NAMES ARE SWAPPED AND THE CANDIDATE LIST IS MERGED W I I H 
EXISTING CANDIDATE FILE, THE NEW ENTRIES CONTAIN 2FRO IN 

second and third words, control is returned to 'fxSetd* , 
usage 

CALLING SEQUENCE: 

CALL VaR I NX(NFIFLD^»L0WFR*BUPPER. mcand, I set NO) 

NT 1 ELD = FIFLD flUMiiFR 

B UPPER = UPPER I'OUiMDARY VALUE 

BLOWER - LOWER HOUNDARY VALUE 

MCaVU = MUMrfEK (JF CANDIDATES (OUTPUT ) 

= CAMDIDATF FIELD VALUF (INPUT) 

1 S F T N 0 r SET M U H D F R (INPUT) 


FILE 
I HE 
THE 


D- 13A 


s 

■' 1 1 

i 

MINIS PROGRAM SPECIFICATION . j 

■ ' S • i 

* 

£ 

i ff 

114.0 PROGRAM NAME- VAKVAL J 

s 

114.1 PURPOSE | 

! 

BUILD a BOUNDARY -VALUE FOP »VARCHK‘ AND INDICATE WHETHER THE VALUE I 

IS A MAXIMUM OR MINIMUM, j 

/ : ; i 

114.2 IDENTIFICATION * j 

I- 

DATt- ? APRIL 1975 ! 

i r 

revision- j 

auTmir- n.R, S anders 

OCR 6 Q?4 
FORTRAN IV 

164 LOCATIONS (244 OCTAL) 


114.3 DESCRIPTION 

the pointer to the quad tarlf. entry is used to extract the 
Relational operator from" ’the quad and the boundary value that is 
LOCATED in the SYMROL Table, A FLAG is set INDICATING maximum or 
MINIMUM BOUNDARY and CONTROL IS PASSED BACK TO ’VaRCHK', 

114.4 USAGE 

Calling sequences 

call VaRvaK ipfl* IQD. value *minm ax) 

I fl o = field number 
iqd = quad Table pointer 
VALUE = BOUNDARY value 
M IN* AX = -1 FOR mimimUm 
♦1 FOR maximum 
0 FOR BOTH 
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05 . EOOR- u 


C0MPOTER- 
L A.N G 0 A G t * 
CORE SUE- 


MINIS PROGRAM SPECIFICATION 


115.0 PROGRAM N A M £ - WRITE 

113.1 PURP0SF 

TO O'JTPUT A CHt- A TEH SYMBOL VALUfc OP VALUES WHICH A R t NOT VARIABLE 
OVER A SET, 

113.2 IDENTIFICATION 

DATE- 12- 16 -7S 

REV I S I flN- 

AUTHOR- C#J» FaRLESS (20b) 883-1778 

COMPUTER- DATACRAF'T 6024/3 
LANoOACE- FORTRAN IV 

CORE SIZE- U33 LOCATIONS <2155 OCTAL) 


115,3 DESCRIPTION 

UK 1 1 r OUTPUTS THE VALUE OF A CREATED SlIMROL WHICH IS NOT RELATED 
TO a PARTICULAR SET (1R IS a VaLUR CALCULATE!) FROM A SUM OF A 

parameter over a srT. optional formating can be utilized by adding 
A FORMAT title TO THE ARGUMENT LIST I THEREFORE allowing 

explanatory Material to re printed along with the value, in lieu 

of a requested format The value is printed out with its symbol 
name, multiple parameters a Re output on the same line unless more 

SPACE IS REQUIRED, EXAMPLES: 

WR 1 T E ( X ) 

result: x 5 . in, 21 


W R IT P ( X , Y ) 

result: x= in, 21 y= 20,4? 

U R I 7 E ( X > Y » F M A T X Y ) 

F K A T X Y = ( 1 X » ' THE VALUE OF X I S. » ,F5 « 2 # 4X * * T H£ VALUE OF Y IS » , F 5 , 2 > 
RESULT: TmE VALUE OF X IS 10,21 T HE VALUE OF Y IS 20,42 

113.4 USAGE 


CALLING SEQUENCE : 

WRITE (ARG! # *RG2, , . . > 

A P G 1 » A R G 2 # , , . , " T HE CREATED SYMBOL IM A fi F AH FORMAT 
TITLE TO PRINT, 
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MINIS PROGRAM SPECIFICATION 


116.0 PR'IG ^ A M \AMt- WRTRUF 

116.1 PURPOSE 

Tt) pUFFfcR THE MERGE OUTPUT INTO BLOCKS TO INCREASE FILE *RHE AND . 
Tape write speed. 

116.2 IDENTIFICATION 

Date- 3-1 5-76 

REVISION- 

AUTHOR- C.J.FARLEbS <205) AS 3-1776 

COMPUTER-’ RATaCRaFT 6024/3 

language- fortran IV 

COPE SliiS- 609 LOCATIONS <1141 OCTAL) 

116.3 DESCRIPTION j 


116,4 USAGE 

calling Sequence • 

CALL WRTbUF< ivlAMl * ISTaRT , lSTflP,NAM2»NREC» I WDE V » NBUF , I END, MER) 

NAM1 = file DEFINITION of InPUT file, 

ISTaRT = FIRST RECORD OF INPUT, 
lST«e S LAST RECORD OF INPUT, 

nam2 = file definition of output file, 

MR EC = NEXT RECORD NUMph.R OF OUTPUT TO WRITE, 

IwnEv/ = OUTPUT FILE DFVIUF NO, 0=DISC# OThFR = TaPE, 

I END s END FLAG. WRIF ALL PUFFER IF SET, 

MER = MERITS FLAG--HIT MO OF FIELD FOR SEQUENCE NO. 
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MINIS PROGRAM SPECIFICATION 

117.0 PROGRAM NAME- WRTDAT 

117.1 PURPOSE 

store data values into a data array and output headers and data, 

117.2 IDENTIFICATION 


tUTE- 
RfcVlSjOlv- 
AUTH'JR- 
COMPOTER- 
l ANGOAGE- 
CORE S I 2E- 


7-8-75 

C, J. FARLFSS (205> 083-1770 

DATACRAFT 6G?4/3 
FORTRAN IV 

M3 LOCATIONS (1513 OCTAL) 


117,3 DESCRIPTION 

FOR THF RECORDS IN A GIVEN StT(NSf-T), THE REQUIRED FIELDS ARE 
extracied and variables calculated, the resultant values are 
stored in the output array. The headers are written from i he 
format in array *fmat» and data is OUTPUT from the format IN ARRAY 

’FDHAT • , 


13 7 . a USAGE 

calling SEQUENCE: 

Call WRTdaT( ISTaRT , 1 STOP » LCNT » NSF 1 iLCNThD) 

} S T A R T = NO , OF FIRST I I EM TO OUTPUT 
I STOP =N0, OP LAST ITEM TO OUTPUT 
LCNT =N0, OF LINES PRINTED 
NSET = $ F T NUMRER 
LCNTHD=NO, OF LINES IN HEADER 
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118,0 

118.1 

118,2 


118.3 

118.4 


MINIS PROGRAM SPECIFICATION 


program name- wrtdef 


PURPOSE 

STORE FIELD DEFINITIONS in ioef, 

IDENTIFICATION 

Date- 4-22-75 

REVISION- 

AUTHOR- C, J, FARLFSS (205) 883-1778 


COMPOTER- DaTACRAFT 6024/3 
LANGOaGE- FORTRAN IV 

CORE S I 2F- 364 LOCATIONS (554 OCTAL) 


DESCRIPTION 

USING THE SUBROUTINE ARGUMENTS, THE 10 WORD FILE DEFINITION BLOCK 
IS CONSTRUCTED, IF A DEFINITION ALREADY EXISTS FOR THE INDEX FILE, 
THE NEW DEFINITION IS STORFD IN THE OLD LOCATION, IF ONE DOES NOT 
EXIST, THE DEFINITION IS STORED IN THE FIRST AVAILABLE LOCATION 
AFTER ITS INDEXED FILE, IN THE CASE OF A LEVEL 1 INDEX FILE. THIS 
WOULD BE THE FIRST AVAILABLE LOCATION IN THE INDEX FILE 

definitions, if there are mo available locations, the routine sets 

Th c NUMBER OF RECORDS IN the FILE TO 0 AND RETURNS TO THE CALLING 
PROGRAM, 

• USAGE 

CALLING sequence; 

CALL WRTDEF ( I FLMO.LEVEL, I TYPE, NR6C,NBYrF.XM IN, SI 2E# NBPTR.TI NAM) 
IFLNO = FIELD NUMBER 

level = index level ; ; " ■ - 0 ri<3^ ' ■ ' : 

[TYPE = TYPE INDEXING OF. POOR QUALITY 

NR EC = NUMBER OF RECORDS IN F I LF ( NUMBER OF ENTRIES) 

NBY'TF = NUMBER OF RYTES PER RECORD 

XMIN = FOR LEVEL 1=FIFLD NUMBER 
FOR LEVEL 2sM I N I MUM VAtUF 

SIZE s FOR i.EVELl -NUMBER OF HITS IN F I FLD 
FOR LEVEL. 2 sSEGMENT SI?E 
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NBPTR = NUMBER Of-' BITS iMI-tDED FOR POINTER 
FI NAM = TEN WORD FILE DEFINITION BLOCK 


WORD 

1-3 


4 

5 

6-7 

8-9 


ID 


C0NTFNTS 

FILE NAME XFLDLf 
X=MFSHtn CHARACTER of all 

iL-TTERS IS DATA BASF. NAME 
FLU-3 DIGIT FIELD NUMBER 
L-l DIGIT LEVEL NUMBER 
T;-l DIGIT TYPE NUMBFK 

number of records in file 
number of hytes/rfcord 

LEVFL 1 FIELD NUMBER (WORD 6) 
LEVEL 2 MINIMUM VaLUE 
LEVFL 1 !. NUMBER OF BITS IN 
F I ELD ( WORD 

LEVFL 2 SEGMENT Sl*E 
NUMBER OF BITS IN POINTER 
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MINIS PROGRAM SPECIFICATION 


119.0 

119*1 

119.2 


119.3 

119.4 


PW1G4AM NAME- XFER 
PiJRPISP 

TRanSFPR a CONTIGUOUS STRING OF CHARACTERS FROM ONE ARRAY TO 

another 

1 t)F. h *T I r I CaT I ON 

DATE- fl NOVEMBER 1974 

REVISION- | 

AUTHOR- D.R, SANDERS <205 >-«83-l 770 

COMPUTER- OCR 60P4 
LANGUAGE- FORTRAN IV 
CORE SUE- 42 WORDS (52 OCTAL) 


description 

•N» CONTIGUOUS BYTfS are TRANSFERRED from * I SRC * beginning with 
The M'Th character into mdes* beginning at the ! j’Th character, 

USAGE 


CALLtNG SEQUENCE: 

CALL XFER< ISRC, I » IDES, J.N) 

I SRC = SOURCE ARRAY 

I s STARTING CHARACTER in isrc 

IDES * DESTINATION ARRAY 

J s STARTING CHARACTER IN IDES 

N S NUMBER OF CHARACTERS TO TRANSFER 
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MINIS PROGRAM SPECIFICATION 
1 ?U,U PRDGR AM LACTlIl. ( NpOS » LA I » LON ) 


120.1 PURPOSE 


DETERMINE !F The PICTURE CUnhlUN-ATbS IN AN ARRAY ARE IN A 
SPECIFIED AREA, 


J. ? U , 2 identification 

DATE- 1,7 SFPTbMBFR. 197b 


R£V] RlON- 
AUTHDR- 
COMPUTER- 
languagE- 
CORB SljfF- 


ADAPTEn F R n h A MERITS SUR OF THE SAME NAME, 
R.L.KEPFFR < 20 ^>) fc 83-1778 
DATaCRaFT 6024/3 
FORTRAN IV 

210 LOCATIONS (3?2 OCTAL) 


12 0.3 D H S 0 9 i D T I 0 N 

Each: photo in cgmmhn rfush is checked to see if it covers i he 
specified °oint (uT.lhn), if not, the entry is deleted from reuse 
and The list moved op i. notch, surroutine hit^s pots ihe actual 

COORDINATE CHECKING. THE PICTURE POSITION is NORMAL 1 2FD to north 

latitude* and 93 west longitude to simplify hites Task, 


120.4 USAGE 

CALLING SEQUENCE: 

CALL LaCTU l .(NPOS,LaT*LUN) 

N b OS = NUMBER OF PASS I RLE. PHOTOS. SET TO ACTUAL AT END, 
LAT = LATITUDE OF POINI TO RE CHECKED, 

LON = LONGITUDE OF POINT TO OF CHECKED, 
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APPENDIX C 


PROGRAM FLOW CHARTS 

original page is 
OB B° 0R 

■ C— i ■■■.-. : v 


Appendix C includes program flowcharts for the following programs: 


Name 

Page_ 

Name 

Paige 

icXTFLD 

G-l 

FORMAT 

033 

EXFLD 

04 

BISORT 

C438 

IN3NT 

C-5 

MOVOUT 

Or 41 

IBLANK 

C-6 

gendex 

042 

KUMPAR 

07 

INDEX 

C444 

INTGER 

G-8 

NpRM 

047 

LININ 

09 

OUTPUT 

C-j-48 

FTNFLD 

010 

EXCANS 

C-52 

FLDFIN 

Oil 

EXOPRN 

C-53 

MESOUT 

C-20 

EXQUAD 

0-55 

MESMAN 

C-21 

EXVARD 

C-58 

l 

SETPEI 

028 

SUBSET 

0-59 

WRITFL 

G-29 

REVSCN 

C-GO 

SORTEX 

030 

RVSCAN 

C-61 

MERGER 

INFMAT 

031 

C-32 

SUMSET 

C-62 


ORIGINAL! PASSES m 
m POOR QUAOTfl 



/Field Key 1 *' 
\ed? > 

100 fYes 
Extract key 
from Data 
record 
(1BEXT) 

sir 

Extract Key 
from Field 


(IBEXT) | 

Y 

\record / 

\po 

<= — 

M V , 

Set DATA 
TYPE (ITYP) 
to 15 


Set Data 
ARRAY = 0 
IDATA(l-4) 



BS>0 


1 


Extract data 
type ITYP 

(IBEXT) 

zzz xz 

Extract rep- 
ort count 
NRPT 
(IBEXT) 

ZZ 3I 

Extract field 
9tart bit 
IFIR 
(IBEXT) 

zzz ±z 

Extract No. 
of bits in 
field NBF 
(IBEXT) | 

I I 

Extract No7| 

3its in sub- 
field NBS 
(IBEXT) 


!PT>(T 

? 


Extract sub- 
field ISUB 
(IBEXT) 


5 


Decrement 
report count 

NRPT 




'fcRPT> O' 
? 


►^correct field 
K ?(=MES/^ A 


Adjust start ~j 
Yes of field word i 
> IFIB = IFIR + ‘ 
. NBF 










Calculate start 
of, sub- field 
IBi'2 


yvnv ' 

.equal to 


Calculate size 
of sub- field 
NB2 


Calculate No. 
of words in 
sub- field 2- 


/Test\ 
more than 
„ one word 


Set second 
word of sub- 
field in 
IDATA (4) 


Calculate 
bits in first 
word. 



Calculate words 
ih field. Set j 
word count. 


62 5l 
/ // One N s s 

“word re- 
v maining ? 


1 

Set first word . 
of sub- field 
IDATA (3) 


Set first word 
of first hold 
field IDATA (1) 


S;et a word in 
data array 
IDATA 


Decrement 
word count 
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Set IDATA(l) 
to logic false. 
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Enter Field 
ID to be de- 
leted 
fFINFLDl 


no. = 


220 XlsX 
/there a\ 
<^neld key ref- 
X erence t <y 
Xfield/ 


T Ho such 
field name* 

(MESOUT) 


FINFLD 


Scan all IDS for 
ref. to keys be- 
yond this field. 
Decrement any 
found. 


of field ID no 


Move all FSG 
LD IDS beyond 
this ID toward 
array stack by 
18 bytes. 



’FIGLD ID 
deleted. ’ 

(MESOUT) 


25 











c- 
















EXIT 


^ 600 ^ 


500 


’Save Field 

ID changes ? j 
(Y or N) ' 

(MESOUT)I 


(input a 
character 

(LININ) 



Write field 
definition 
array tosav4 
file 

t WR ITEL)! 


Write filg 
definition 
array to sav£ 

P le (WRITFLl 


590 V 


RETURN 
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624 - /I' 
No ^ ield 


Extract field 
no. and valuq 
of key 
(IBEXT)^ 

Output key field] 
no. and value 
for presence of) 
this field. 


632 X 
Extract 
starting bit 
position 


(IBEXT) 


Y 


Output first 


Ny 

bit position in 
record 


y 

656 ^ 


1 

[Extract datal 
type 

(IBEXT) 


v 


Output data 
type 


1 


f 


Extract no. 
of bits in 
this field 

(IBEXT) 



[Extract for- 
mat type 
[field width & 
sig. places 

(IBEX T) 




(Output normal 
output format 


660 



''This is the 
identifier 
field. 
(MESOUT) 

















MESOUT 


Calculate :blank 



V IXITSONS, N 



' char to xfer, 



Last non blank cb 

• 



Calculate: no. 
of blanks per 
transition and 

additional 

blanks. 


/Test\ 
/system \ Yes 
message? 


Move system 
.file name to 
ARG. list 


Output IBUF L Tr T ^® f ® r . line 

to IBUF msen- 

add NCTT to fang blanks 

ICI iwhere required 


Move user mes- 
sage file name 
to ARG list 



ick up mes- . 
sage index 
pointer 



Read index 
Entry from 
FILG 
(FILRED) 

loo x 

Set FILG entry 
. in argument 
list. 


Calculate: line 
length, buffer 
length char. / 
buff. Initialize 
buffer pointers 


zLEADBLX yes 
lLINLEN 


Increment 

ICI 


500/ls X. 
y eg /next chars 
-^^vblank? 


/ICI into \ 
.next buffer V 


600/Isf\ 
/IC^NCH^ 
V AR 


700/ Is X 

Yes/ICI + LIlX 
LEN into 
X next buf- 

X. fer %/ 


80 p/Is \ 
/NCHAE be- 
.yond end of 

X^current / 

Xk ; ' 

[Yes 


200 Y 

Blank output 
buffer ’IBUF’ 



Litilen=Linlen- 
leadbl recalcu- 
late char, point- 
ers: IDPO & IC 



RETURN 



(Read next 
half buffer 

. (FILRED) 


/lei + X X S 
XINLRN-1 >Yes_ 
\> NCHAR 2/ 


300 

Transfer from 
ICI+HRN NCH 
■ AR to IBUF at 
IODO ignonsng 
leading blanks 



Output 


IBUF 
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CHANGE 


700 



'Enter new 
message no. 

(ININT) 





715 


OUTPUT: 
change mes.I4 
to 14 ok? 

(Y or N) 




'Illegal mes- 
sage number 

(MESOUT] 


Input one 
character 


1037 


(LININ) 


MESFILE 


(MINX(MNUM) 
= NUNO 

Yes 




MINX (NUNO) 

|= MINX (MNUMj) 
MINX(MNUM) 

=0 









































c 


FILRED 

T 


Open file 
get stack 
pointer 
(SETPRI) 


ORIGINAL PAGE JS- 
OE POOR QUALI , fQ?leulate no.ol 
words to read 


Define and 
open the filej 

(SETPRI) 


Calculate no. 
words in file. 
Set rec. num=l| 



/ 

Set IER 

= -9 


Read the 
file 

(WRITFL) 


r 


RETURN 


3 



500 y 


Read or 
write the fil^ 

(REDWRT) 


RETURN 



[Close the 
file 

(FILEND) 


Read to 
named 

array 
(REDWRT) | 


RETURN 


3 


REDWRT 


Y 


c 


FILWRT 


Open file. 
Get stack 
pointer 
/SETPRD 


Calculate no. of] 
words to write 


Write from 
named arrajj 

(REDWRT) 


Set status to 
write in file 
stack 


RETURN 


3 


Set IOP = 0 


- I - ■ 

Move record 
no. to file 


Calculate unit 

i 

number 



stack 



300- 
Read specified 
number of 
words 



RETURN 


Write specified! 
Inumber of 
words 










! -t •• ; 




■ I "• \_ 

SORTEX 


| Lenblk = 
Buflen 12 


IPTR = 1+ 
Ifr-1) * NITM 


IS>NSEG 

? 


NITM = LEN- 
BLK 1 ITMLE1 


LENBLK = 
NITM* ITMLG1 
IS = 1 


IR = IPTR 
NSRT=NITM 

^ / '4s^^SEgV\ Yes 



— 

J 


• • yNo 

40 Q 

as - is + 1 


NSEG = 
(ITMTC 
NITM 

= 1+ 
IT-1)/ 

■f ’ -0 


NLAST 
PT - N] 
(NSEG 

= ITMT 

:tm* 

-i) 

■' ' 


NSRT = 
NLAS 

T 


Read NSRT 
items IR 

(REDFIL) 


Oatfile lengths 
= input file 
lengths 


Write NSRT 
items @ IR 
(WRTFIL) 


Sort NSRT 
items 

(BISORT) 


NSEG = 
? 


600 

Copy FILIN to 
FILOUT and 
close 


Merge NSEG 
blocks from 
FILIN to 

filq:ut„„ 




Delete 

FILIN 


RETURN 


















MERGER 


Define: 

NITMS,IOKT 

KOUNT 


Define sort 
key extract 
arguments. 



Increment core 

/TsV 

Set core poin- 

segment poin- 

_ /^ore poinX Yes 

ter to start of 

ter 

— — ^Xput of se &"/ ^ 

\ments/ 

core segment. 


/Ts\ 
ytnis the X 
last block oi 

X s eg? > 



/TesfX 

ft the last 
v buffer? 


340 V 
Set up partial 
block read. 


Extract sort 
keys of new 
item 
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